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

А если надо выбрать числа кратные 7 из произвольного набора чисел?

Answer 4

Тогда это уже другая задача.

Answer 5

Извините, но так и не поняла, зачем вы презентовали свой вариант программы... Либо вы точно знаете какие числа нужны и тогда непонятен выбор именно данного цикла, либо устраивать проверку на кратность и не придумывать мифические условия...

Answer 6

Ведь можно писать и так:
begin
SeqGen(10, 0, t -> t + 7).Print
end.

Answer 7

Это уже на паскаль, а PascalABC.NET, а опубликовал - для разнообразия.