Напишите программу натуральное число n. вычислить у=1*3*-1)
shamshievoleg
2
28.03.2019 22:20
1
Другие вопросы по теме Информатика
Kik1924
21.04.2020 17:31
10089675834075
21.04.2020 17:31
виталий146
21.04.2020 17:31
Barbara123456
21.04.2020 17:31
Tashkentskiy
21.04.2021 23:47
bellalove200
21.04.2021 23:46
киви1403
21.04.2021 23:41
камилла731
21.04.2021 23:41
123abcde6
21.04.2021 23:37
Популярные вопросы
- Решить уравнение под корнем8x^2-32=0...
3 - Два одинаковых заряда расположены на расстоянии 1м один на другого и взаимодействующим...
1 - Убабушки было в запасах 5 кг 600г сахара. 7/8 всего сахара бабушка потратила...
3 - Петя ест макаронину длиной 60 км. в первый день он съел пятую часть всей макаронины...
2 - Где впервые появились политические партии? 1. 2.италия 3.германия 4. россия...
2 - Найдите производную функцию y=7^x×x y=4e^x -3in x+6x^8...
1 - Сливочное мороженое содержит 11% сахара на приготовление мороженого израсходовали...
1 - Имеется 0,5 раствор h2so4 объемом 200 мл. рассчитайте обьем воды который нужно...
3 - Вычислите: 5cos3пи/2-2sin3пи/2+3ctgпи/4....
1 - Звуко-буквенный анализ слова корова...
1
Program Pr1;
uses crt;
var i,n,y:integer;
Begin
clrscr;
y:=1;
readln(n);
if n>=2 then for i:=2 to n do y:=y*((i*2)-1);
writeln(y);
end.