вывести на экран все числа делящиеся на 13 от1 до 100

[nasya73]

вывести на экран все числа делящиеся на 13 от1 до 100





я просто вообще не шарю в паскале...((

[Hacker19_90]

Я так полагаю делящиеся на 13 без остатка
Если да, то

for i := 1 to 100 do
    if ((i mod 13) = 0) then writeln (i);

[nasya73]

спасибо огромное)очень благодарна)

[Hacker19_90]

Не проблема! Обращайтесь! Ася в профиле

[FullVenic]

можна проще) если у тебя 1000000 чисел то наверное бістрей будет работать:

repeat
x:=13;
write(x);
x:=x+13;
until x>1000000;
читерство)

[TinMan]

Сообщение от FullVenic

читерство)

Почему нормальное оптимальное решение нужно называть мошенничеством?..
Где критерий "честности"?

По-моему, единственным критерием оценки решения является правильность результата и эффективность. Первое представленное тут решение - дуболомство, извините. В некоторых задачах без перебора просто никуда, но в данной - достаточно включить мозги, и перебор оказывается ненужным.