Yarisi
Опубликовано 6 лет назад по предмету Информатика от Yarisi


дано четырёхзначное число определить: кратна ли трём сумма его цифр

  1. Ответ
    Ответ дан Crazzyone
    program tz;vara,b:integer;i:byte;beginwriteln('vvedite 4x znachnoe chislo');readln(a);b:=1;for i:=1 to 4 do begin    b:=b*(a mod 10);    a:=a div 10end;if (b mod 4) = 0 then   writeln(b,' Kratno 4')else    writeln(b,' Ne kratno 4');readln;end.
Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц