Регистрация
Tana1369
28.11.2021 13:01
Информатика
Есть ответ 👍

Проверить для четырехзначного числа признак делимости на 3.В случае делимости вывести на экран «делится», в случае не делимости – « не делится».

165
221
Посмотреть ответы 2

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

uraalekseev1234
uraalekseev1234
4,7(54 оценок)

работает не только для 4-х значных

Объяснение:

program Hello;

var str : String;

   sum, i  : Integer;

begin

write('str = '); readln(str);

sum := 0;

for i := 1 to Length(str) do sum := sum + ord(str[i]);

if sum mod 3 = 0 then writeln('делится') else writeln('не делится');

end.

mmmkkk3
mmmkkk3
4,8(31 оценок)
Гарнитура, начертание, размер

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