Предмет: Информатика,
автор: SudokuPus
Напишите программу на Pascal
Приложения:
Ответы
Автор ответа:
1
Ответ:
program m1;
var i,p:integer;
begin
read(i);
p:=1;
while i<10 do begin
p:=p*i;
i:=i+2;
end;
writeln(p);
end.
Интересные вопросы
Предмет: Русский язык,
автор: МамаВера3
Предмет: Английский язык,
автор: gdh1
Предмет: Другие предметы,
автор: anzhelikatar20
Предмет: Алгебра,
автор: Ксюша896543
Предмет: Математика,
автор: fjdhxhFok