Дано четырёхзначное число определить: кратна ли трём сумма его цифр
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
Тюз
Program tz;
var
a, b:integer;
i:byte;
begin
writeln ('vvedite 4x znachnoe chislo') ;
readln (a) ;
b:=1;
for i:=1 to 4 do begin
b:=b * (a mod 10) ;
a:=a div 10
end;
if (b mod 4) = 0 then
writeln (b,' Kratno 4')
else
writeln (b,' Ne kratno 4') ;
readln;
end.
var
a, b:integer;
i:byte;
begin
writeln ('vvedite 4x znachnoe chislo') ;
readln (a) ;
b:=1;
for i:=1 to 4 do begin
b:=b * (a mod 10) ;
a:=a div 10
end;
if (b mod 4) = 0 then
writeln (b,' Kratno 4')
else
writeln (b,' Ne kratno 4') ;
readln;
end.
Новые вопросы в разделе Информатика
s3129502@gmail.com
16.02.2024, 13:53
Информатика
7-9 класс
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
