Найти сумму целых двузначных чисел кратных трем
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.
//Подходит?
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
