Напишите пожалуйста программу в паскале, что бы суммировало числа от 1 до 50 которые заканчиваются на три.
var
i, summ:integer;
begin
for i := 1 to 50 do
if i mod 10 = 3 then
summ := summ + i;
writeln(Summ = , summ);
end.
Оцени ответ
Вход
Регистрация
Задать вопрос
var
i, summ:integer;
begin
for i := 1 to 50 do
if i mod 10 = 3 then
summ := summ + i;
writeln(Summ = , summ);
end.