Дано 11 чисел. Найти суммы
чисел кратных 3 и некратных 9.
Program Pr1
var
a: array [1..11] of integer;
i,sum:integer;
begin
sum:=0;
for i:=1 to 11 do
begin
readln(a[i])
if (a[i] mod 3=0) then
sum:=sum+a[i];
writeln(sum);
sum:=0;
if (a[i] mod 9<>0) then
sum:=sum+a[i];
writeln(sum);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
