Составить программу нахождения чисел от - 100 до 100 кратных 7

pascal abc

Question

Информатика

Евлампия

27 августа, 02:27

Составить программу нахождения чисел от - 100 до 100 кратных 7

pascal abc

+4

Ответы (1)

Знаете ответ?

Зари · Answer 1

Я взяла числа по модулю, иначе будет 0. Если тебя устраивает 0, тогда не пиши abs в условии.

var s, a: integer;

i:integer;

begin

a:=-101;

for i:=1 to 200 do begin

a:=a+1;

if a mod 7=0 then s:=s+abs (a) ;

end;

writeln (s) ;

end.

Выводит: 1470

Составить программу нахождения чисел от - 100 до 100 кратных 7pascal abc

Составить программу нахождения чисел от - 100 до 100 кратных 7

pascal abc