Регистрация
vakla
25.05.2022 20:21
Информатика
Есть ответ 👍

Нужная составить программу паскаль, которая выводит на экран каким является число: чётным или нечётным, положительным или неположительным

204
287
Посмотреть ответы 2

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

slepovairina9
slepovairina9
4,6(93 оценок)

var n: integer;

begin

writeln('введите целое число: ');

readln(n);

if n mod 2=0 then writeln('четное')

else

writeln('четное');

if n> 0 then writeln('положительное');

if n< 0 then writeln('отрицательное');

readln ;

end.

Ренаткрутой
Ренаткрутой
4,4(22 оценок)
Программу можно и не составлять (среди сомножителей есть 2, 5, 10, 12, 15 и, следовательно произведение будет оканчиваться на 3 нуля). если нужно найти не 3, а 4 последние цифры, то программа может быть такой: var i,p: integer; begin p: =1; for i: =1 to 18 do p: =p*i mod 10000; writeln(p); end. результат: 8000 а если вместо mod 10000 написать mod 1000, то: результат: 0

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