Регистрация
roman2016volko
01.10.2021 10:22
Информатика
Есть ответ 👍

1. составьте программу, проверяющую, что введенное число является четным или нечетным 2. составьте программу, проверяющую, что введенное число делится без остатка на 3

250
432
Посмотреть ответы 3

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

rufa12
rufa12
4,4(60 оценок)
// 1 var d: integer; begin readln(d); if d mod 2 =0 then writeln('четное')  else writeln('не четное'); end.// 2var d: integer; beginreadln(d); if d mod 3 =0 then writeln('делится')  elsewriteln('не делится'); end.
BWorld
BWorld
4,6(44 оценок)
1) var       i: integer; begin       readln(i);       writeln('четное?   - ', i mod 2 = 0); end. 2) var       i: integer; begin       read(i);       writeln('делится на 3? - ', i mod 3 = 0) end.
cariandreevac
cariandreevac
4,5(14 оценок)

var

a,s:integer;

begin

s:=0;

a:=1;

until a<>0 do

begin

read(a);

s:=s+a;

end;

write(s);

end.

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