Предмет: Информатика,
автор: frigate19
Составить программу.
Вывести на экран 10 первых целых чисел кратных 7
pascal.
Если правильно дам ещё баллы.
Ответы
Автор ответа:
0
var a,i:integer;
begin
for a:=14 to 77 do
begin
if (a mod 7=0) then
write(a,' ');
end;
end.
Автор ответа:
1
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
write (0,' ',7,' ',14,' ',21,' ',28,' ',35,' ',42,' ',49,' ',56,' ',64)
end.
write (0,' ',7,' ',14,' ',21,' ',28,' ',35,' ',42,' ',49,' ',56,' ',64)
end.
Так ещё короче... )))
А если k = 10000, то как со временем выполнения программы при использовании mod?
Пример задачи, где время выполнения существенно, task/30211291.
А если надо выбрать числа кратные 7 из произвольного набора чисел?
Тогда это уже другая задача.
Извините, но так и не поняла, зачем вы презентовали свой вариант программы... Либо вы точно знаете какие числа нужны и тогда непонятен выбор именно данного цикла, либо устраивать проверку на кратность и не придумывать мифические условия...
Ведь можно писать и так:
begin
SeqGen(10, 0, t -> t + 7).Print
end.
begin
SeqGen(10, 0, t -> t + 7).Print
end.
Это уже на паскаль, а PascalABC.NET, а опубликовал - для разнообразия.
Похожие вопросы
Предмет: Химия,
автор: evachuprinaa
Предмет: Английский язык,
автор: ghjkkh
Предмет: Математика,
автор: kapralnymyigor
Предмет: Алгебра,
автор: InTheTardis
Предмет: Алгебра,
автор: angela99153
begin
repeat
n:=n+7;
write(n,' ');
k:=k+1;
until k=10;
end.