Составить программу.
Вывести на экран 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.