Найти сумму положительных кратных 7 чисел,меньших 100.
Uses crt;
vari,s:integer;
begin clrscr;
s:=0; i:=7;
while i<100 do
begin
s:=s+i;
i:=i+7
end;
writeln(s);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
