Нельзя решить задачу, если она не поставлена
- (ↄ) В. К.
Данный раздел подразумевается к использованию в качестве словаря для начинающих участников Семинара "Современные методы алгебры и топологии".
Секция будет постоянно пополняться ссылками на новые определения, примечания, рассуждения, теории, теоремы и их доказательства.
У вас есть число z=5. Пользователь вводит числа в цикле, если за последние 4 попытки ввода было хотя бы одно число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если такого числа не было, то уменьшайте на 1 в ответ на каждый ввод.
Цикл и программа должны завершиться, когда число z станет отрицательным.
У вас есть число z=5. Пользователь вводит числа в цикле, если очередное введенное число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если меньше 15, то уменьшайте на 1. Цикл и программа должны завершиться, когда число z станет отрицательным.
ыведите на экран таблицу умножения используя только циклы вида while.
program Variant2;
var b, i: integer;
begin
b:= 1;
i:= 1;
while (b < 10) do
begin
while (i < 10) do
begin
writeln(b, 'x', i, ' = ', b * i);
i:= i + 1;
end;
writeln();
i:= 1;
b:= b + 1;
end;
end.
Выведите на экран таблицу умножения используя только циклы вида repeat/until.
Начинаться вывод таблицы должен как-то так:
?
1
2
3
1x1 = 1
1x2 = 2
......
program Variant2;
var b, i: integer;
begin
b:= 1;
i:= 1;
repeat
repeat
writeln(b, 'x', i, ' = ', b * i);
i:= i + 1;
until (i = 10);
writeln();
i:= 1;
b:= b + 1;
until (b = 10);
end.