Question

Составить программу. Вывести на экран 10 первых целых чисел кратных 7 pascal. Если правильно дам ещё баллы.

Answer 1

var a,i:integer;

begin

 for a:=14 to 77 do

   begin

   if (a mod 7=0) then

         write(a,' ');

   end;

end.

Answer 2

var i,k:integer;

begin

repeat

if i mod 7 = 0 then

begin

k:=k+1;

write (i,'   ')

end;

i:=i+1

until k=10

end.

Answer 3

Конечно! Вот пример программы на Pascal, которая выводит первые 10 целых чисел, кратных 7:

pascalCopy code
program FirstTenMultiplesOfSeven;
var
  count, num: integer;
begin
  count := 0;
  num := 7;

  while count < 10 do
  begin
    writeln(num);
    num := num + 7;
    count := count + 1;
  end;
end.

Эта программа использует переменные count и num. Переменная count отслеживает количество уже выведенных чисел, а переменная num хранит текущее число, которое мы будем выводить на экран. В цикле while мы проверяем, что count меньше 10, и пока это условие истинно, мы выводим значение переменной num, увеличиваем его на 7 и увеличиваем count на 1. Таким образом, мы выводим первые 10 чисел, кратных 7.

Пожалуйста, используйте эту программу и проверьте ее работу. Если у вас возникнут еще вопросы, не стесняйтесь задавать.