Нельзя решить задачу, если она не поставлена
- (ↄ) В. К.
Данный раздел подразумевается к использованию в качестве словаря для начинающих участников Семинара "Современные методы алгебры и топологии".
Секция будет постоянно пополняться ссылками на новые определения, примечания, рассуждения, теории, теоремы и их доказательства.
Пользователь вводит числа до тех пор пока не введёт число меньшее 1. В ответ на каждое введённое им число выводите на экран все нечетные числа от 1 до это числа, при этом делящиеся на 5. Если же пользователь ввел число меньшее 1, то завершите программу.
Выведите на экран таблицу умножения используя один цикл while и один repeat-until .
var i, j: integer;
begin
j := 1;
while (j <= 10) do
begin
i := 1;
repeat
writeln(j, ' x ', i, ' = ', j * i);
i := i + 1;
until (i > 10);
j := j + 1;
end;
readln();
end.
Выведите на экран таблицу умножения используя только циклы вида while.
var i, j: integer;
begin
j := 1;
while (j <= 10) do
begin
i := 1;
while (i <= 10) do
begin
writeln(j, ' x ', i, ' = ', j * i);
i := i + 1;
end;
j := j + 1;
end;
readln();
end.
Выведите на экран таблицу умножения используя только циклы вида repeat/until.
var i, j: integer;
begin
j := 1;
repeat
i := 1;
repeat
writeln(j, ' x ', i, ' = ', j * i);
i := i + 1;
until (i > 10);
j := j + 1;
writeln();
until (j > 10);
readln();
end.
У вас есть программа, использующая цикл while:
var
i: integer;
begin
i:=1;
while i
begin
write(i, ' ');
i:=i+5;
end;
readln();
end.
Объясните что делает эта программа (что будет выведено на экран и почему)
Перепишите её с помощью цикла repeat/until
Перепишите её с помощью цикла for
Пользователь вводит два целых числа, выведите на экран все числа между ними, причем:
Если первое больше второго то в порядке возрастания, пример консоли: