Найти сумму целых положительных чисел, больших 20, меньших 100 и кратных 3

@vip59 · Регистрация: 06.02.2011

Author24 — интернет-сервис помощи студентам

помогите плз, чет сижу туплю

Добавлено через 56 минут
вроде так, вдруг кому пригодиться

Pascal

program p_1;
var i,c:integer;
begin
writeln('Сумма чисел от 20 до 100 кратные 3');
c:=0;
i:=0;
for i:=20 to 100 do
if i mod 3=0 then c:=c+i;
writeln(c);
end.

@Puporev · 06.02.2011, 21:56

Pascal

1	for i:=21 to 99 do//больших 20, меньших 100

	06.02.2011, 21:56