Презентация на тему Решение задач с циклами

> 0). Вывести N раз число K.

for1;
 var
K, N, i: integer;
 begin
read(K, N);
for i := 1 to

(A < B). Вывести в порядке возрастания все целые

будет выводить все числа от А до B. Чтобы

program for2;
 var
A, B, i, count: integer;
 begin
read(A, B);
for i := A to B do write(i, ' '); {выписываем числа от меньшего к большему}
count := B - A + 1; {считаем количество чисел}
writeln;
write( 'Количество чисел - ', count);
end.

> B). На отрезке длины A размещено максимально возможное

— В  >= 0.
program while1;
 var
A, B: integer;
 begin
readln(A,B);
while (A -