tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Вычислите произведение всех
Вычислите произведение всех натуральных чисел от 1 до n. n- натуральное, не превосходит 12. , , это ! (алгоритмы с циклической структурой, паскаль)
a1400434
3 26.06.2019 15:30
0
Ответы
timkoa
21.07.2020 11:46
Program programma;
Uses crt;
var n,p,i: integer;
Begin clrscr;
write('Введите число N = ');
readln(n);
p:=1;
if (n<=12) and (n>0) then begin
write('P=');
for i:=1 to n-1 do
begin
p:=p*i;
write(i,'*');
end;
p:=p*n;
write(n,'=', p);
end;
End.
или проще
Program programma;
Uses crt;
var n,p,i: integer;
Begin clrscr;
write('Введите число N = ');
readln(n);
p:=1;
if (n<=12) and (n>0) then begin
write('P=');
for i:=1 to n do
p:=p*i;
write(p);
end;
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
olya363
03.06.2019 10:10
1)сколько времени займет загрузка файлов обьемом 150 мб при скорости 512 кбит/с? 2)файлы каких размеров можно записать на usb накопитель объемом 32 гб, с файловой...
marina0510251
23.09.2019 06:20
Какой объём видеопамяти в килобайтах нужен хранения изображения размером 600х350 пикселей, искользующего 8 цветную кбайт решение...
ОвССянка
23.09.2019 06:20
Яв информатике совсем не разбираюсь. надо написать программу для вывода имени варвара в pascal с команд char, writeln, readeln, ord. (или хотя бы какой-то из них)....
Rabver
23.09.2019 06:20
Сделайте, , сайт через блокнот, уровень 11 класса, простенький, ) любая тема....
Arianalike
23.09.2019 06:10
Что видим на экране после выполнения следующего фрагмента: writeln ( уда , чи );...
moon455808
23.09.2019 06:10
Можно ли выполнить оператор d : =b?...
altreeff5
23.09.2019 06:10
5. чему равно значение выражения: (1234 div 10) mod 2? 1. 1 2. 3 3. 4 4. 2...
fj8f
23.09.2019 06:10
Какой операнд пропущен в следующем отрывке кода a: =7; b: =3; a b*2 then f: =0; writeln(f); else while case if...
ekarerinazak05
23.09.2019 06:10
Какое значение будет иметь переменная а после выполнения следующего кода: a: =4; b: =2; a: =a*a*b; b: =a+b; 1. 32 2. 34 3. 18 4. 16...
as79118487190
23.09.2019 06:10
1. какое значение не может принимать переменная х если она объявлена таким образом: var x: integer 1. 5 2. 12000 3. 8,6 4. 30246...
Популярные вопросы
7) (z²2.y)²; можете решение ответ...
3
63. По рисунку 4 определите, какую часть: а) отрезка KD составляет...
2
Скласти рівняння реакції горіння речовини у повітрі (С2Н5)3РО3...
2
Побудувати Д7 в соль мажорі, розв язати в неповний t53...
2
162 Випишіть речення в такій послідовності: 1) неозначено-особові;...
2
9 сынып химия калий хлоридінің, алюминий хлоридінің, калий хлоратының,...
2
Яка частота коливань поршнів у двигуні автомобіля, якщо швидкість...
2
Выполните эту практическую работу...
3
Попробуйте перечислить экономические,политические, этносоциальные...
3
Найди технику востановлени я...
3
Uses crt;
var n,p,i: integer;
Begin clrscr;
write('Введите число N = ');
readln(n);
p:=1;
if (n<=12) and (n>0) then begin
write('P=');
for i:=1 to n-1 do
begin
p:=p*i;
write(i,'*');
end;
p:=p*n;
write(n,'=', p);
end;
End.
или проще
Program programma;
Uses crt;
var n,p,i: integer;
Begin clrscr;
write('Введите число N = ');
readln(n);
p:=1;
if (n<=12) and (n>0) then begin
write('P=');
for i:=1 to n do
p:=p*i;
write(p);
end;
End.