Составить программу.
Вывести на экран 10 первых целых чисел кратных 7
pascal.
Если правильно дам ещё баллы.
Вывести на экран 10 первых целых чисел кратных 7
pascal.
Если правильно дам ещё баллы.
More Questions From This User See All
Answers & Comments
var a,i:integer;
begin
for a:=14 to 77 do
begin
if (a mod 7=0) then
write(a,' ');
end;
end.
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.
begin
repeat
n:=n+7;
write(n,' ');
k:=k+1;
until k=10;
end.
write (0,' ',7,' ',14,' ',21,' ',28,' ',35,' ',42,' ',49,' ',56,' ',64)
end.
begin
SeqGen(10, 0, t -> t + 7).Print
end.