Question

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

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

Answer 2

Программа на Паскале для нахождения чисел от -100 до 100, кратных 7, будет выглядеть следующим образом:

program FindMultiplesOfSeven;

var
  i: Integer;

begin
  for i := -100 to 100 do
  begin
    if i mod 7 = 0 then
      writeln(i);
  end;
end.

В этой программе используется цикл `for`, который перебирает все числа от -100 до 100. Внутри цикла проверяется, кратно ли текущее число 7 с помощью оператора `mod`, который возвращает остаток от деления. Если остаток равен 0, то число кратно 7, и оно выводится на экран с помощью процедуры `writeln`.

Таким образом, программа будет выводить все числа от -100 до 100, которые делятся на 7 без остатка.