помогите составить программу на паскале Вычислить сумму чисел натурального ряда, делящихся на 3, до тех пор, пока сумма не превысит 500. Определить число членов суммы. Значение суммы и число ее членов вывести на экран с соответствующими комментариями.
Ответы
Ответ дал:
1
Вроде получилось:
var a,b,s:integer;
begin
write('Числа = ');
for a:=1 to 100 do
begin
b:=a mod 3;
if (b = 0) then
begin
write(a,', ');
s:=s+a;
if((s > 500) and (s<520)) then break;
end;
end;
writeln('Сумма чисел = ', s);
end.
Результат:
var a,b,s:integer;
begin
write('Числа = ');
for a:=1 to 100 do
begin
b:=a mod 3;
if (b = 0) then
begin
write(a,', ');
s:=s+a;
if((s > 500) and (s<520)) then break;
end;
end;
writeln('Сумма чисел = ', s);
end.
Результат:
Приложения:
Аноним:
Спасибо большое))))
Похожие вопросы
1 год назад
1 год назад
6 лет назад
8 лет назад