Question

Выведите на экран те числа из заданного диапазона , которые делятся на 7 Составьте программу в паскаль СРОЧНОО!!!!!!!!!!!

Answer 1

// PascalABC.NET 3.2, сборка 1387 от 17.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a,b:integer;
  Write('Введите границы диапазона: '); Read(a,b);
  if b<a then Swap(a,b);
  Range(a,b).Where(x->x mod 7=0).Println
end.

Пример
Введите границы диапазона: -20 67
-14 -7 0 7 14 21 28 35 42 49 56 63

Answer 2

var a,b,i:integer;
begin
write('a, b: ');
readln(a,b);
for i:=a to b do
if i mod 7 = 0 then write(i,' ');
writeln;
end.

Пример:
a, b: 5 50
7 14 21 28 35 42 49

Answer 3

Конечно, я могу помочь с написанием программы на Pascal для вывода чисел из заданного диапазона, которые делятся на 7. Вот пример кода:

scssCopy code
program DivisibleBySeven;

var
  startNum, endNum, i: integer;

begin
  writeln('Enter start number:');
  readln(startNum);

  writeln('Enter end number:');
  readln(endNum);

  writeln('Numbers divisible by 7:');
  for i := startNum to endNum do
  begin
    if (i mod 7 = 0) then
      writeln(i);
  end;

  readln;
end.

В этой программе пользователю будет предложено ввести начальное и конечное значения диапазона. Затем программа переберет все числа в этом диапазоне и выведет только те числа, которые делятся на 7 без остатка.

Надеюсь, это поможет!