Паскаль Составьте программу, которая заполняет одномерный массив двадцатью первыми...

Question

Паскаль
Составьте программу, которая заполняет одномерный массив двадцатью первыми натуральными числами, кратными 5 или 7. Полученный массив вывести на экран.

Answer 1

Uses crt;var counter:integer;
numbers:array [0..19] of integer;
arrayCounter:integer;
begin
counter := 0;
arrayCounter := 0;
repeat
if(counter mod 5 = 0) or (counter mod 7 = 0) then
begin
numbers[arrayCounter] := counter;
Inc(arrayCounter);
end;
Inc(counter);
until arrayCounter = 20;
for var i := 0 to 19 do writeln(numbers[i]);end.

Answer 2

Uses crt;var counter:integer;numbers:array [0..19] of integer;arrayCounter:integer;begincounter := 0;arrayCounter := 0;repeatif(counter mod 5 = 0) or (counter mod 7 = 0) thenbeginnumbers[arrayCounter] := counter;Inc(arrayCounter);end;Inc(counter);until arrayCounter = 20;for var i := 0 to 19 do writeln(numbers[i]);end.
Подробнее - на Znanija.com - znanija.com/task/28176064#readmore