Составить программу, вычисляющую сумму первых 30 натуральных чисел кратных 5 Pascal ABC
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Скажите предложением что такое линза
Автор: Лоскутова
Построить таблицы истинности
Автор: abuley
Заполните следующую таблицу
Автор: StudioArtNails
Команда присваивания составлена правельно ? 6+X=:B
Автор: alexandergulyamov
var x,s,c:integer;
begin
while c<>30 do begin
readln (x);
if x mod 5=0 then begin
s:=s+x;
c+=1;
end;
end;
writeln (s);
end.
P.s. Если с ответом все в порядке, поставь знак лучшего ответа, заранее )