Ответы
Ответ дал:
0
Ответ:
Объяснение:
var
num, num_work:integer;
a1, a2, a3:integer;
begin
//num:=912;
readln(num);
num_work:=num;
a1:=0;
a2:=0;
a3:=0;
if ((num >= 100) and (num <= 999)) then begin
a1:=num_work div 100;
num_work:=num_work mod 100;
a2:=num_work div 10;
num_work:=num_work mod 10;
a3:=num_work;
if ((a1+a2+a3) mod 4 = 0) then writeln('Сумма цифр делится на 4') else writeln('Сумма цифр не делится на 4')
end
else writeln('Число - не трехзначное!!!');
end.
Ответ дал:
0
жду еще 50 балов
Ответ дал:
0
Число вводится, а не задано в программе
Ответ дал:
0
заменить " num:=912;" на "readln(num);"
Ответ дал:
0
В ответе
Ответ дал:
0
Xардкодинг - плохо
Похожие вопросы
2 года назад
2 года назад
2 года назад
2 года назад
8 лет назад
8 лет назад
9 лет назад
9 лет назад