Найти сумму целых двузначных чисел кратных трем

podgainiyroma podgainiyroma    1   18.05.2019 09:40    0

Ответы
Muzahabiba Muzahabiba  11.06.2020 15:59

Program dz2;
Var i:byte;
s:integer;
Begin
S:=0;
For i:= 10 to 99 do
If i mod 3=0 then
S:=s+i;
Writeln('Сумма двухзначных чисел кратных 3 =',s);
End.

//Подходит?

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика