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

pascal abc

Question

Информатика

Созонтий

31 марта, 07:52

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

pascal abc

+1

Ответы (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