Регистрация
derevnina450
03.03.2021 19:41
Информатика
Есть ответ 👍

Какое расширение имеют файлы

232
355
Посмотреть ответы 1

Ответы на вопрос:

natusikfire
natusikfire
4,4(100 оценок)
Var a,b,i: integer; begin write ('введите два целых числа (a> b): '); readln (a,b); for i: =a downto b do if i mod 2< > 0 then write (i,'    ') end. var a,b,i: integer; p: longint; begin write ('введите два целых числа (a> b): '); readln (a,b); p: =1; for i: =a downto b do p: =p*i; writeln ('произведение всех целых чисел от ',a,' до ',b,' равно ',p) end.

Популярно: Информатика