Question

Умоляю нужно написать программу !!!!!!! найти сумму двузначных чисел, сумма которых кратна 7. отправиться как вложенный цикл

Answer 1

program zz1;

var a, b, n, i:integer; // задаем переменные целого типа

begin

for i:=10 to 99 do // организуем цикл, в котором переберем все двузначные числа

begin

a:=i div 10; // получаем первую цифру числа

b:=i mod 10; // получаем вторую цифру числа

if (a + b) mod 7 = 0 then n:=n + i; // проверяем, если сумма цифр очередного двузначного числа делится на семь без остатка, то добавляем его в сумму

end;

write(' сумма двузначных положительных чисел, сумма цифр которых кратна 7 = ', n); // выводим ответ

end.