Выведите на экран таблицу умножения используя только циклы вида while.
program u131z2;
var i,j: integer;
begin
i:=1;
while (i <= 9) do
begin
j:=1;
repeat
while (j <= 9) do
begin
write(i, '*', j, '= ', i*j, ' ');
j:= j + 1;
end;
until (j > 9);
i:=i + 1;
end;
readln();
end.
Пользователь вводит целое число - сумму в некоторой валюте, требуется выдать эту сумму купюрами наибольшего достоинства.
Напишите программу, которая в качестве результата скажет как именно надо разменять указанную сумму купюрами наибольшего достоинства (укажет количество для купюры каждого типа)
Например, пусть у нас набор купюр 1000, 500, 100 и 50 рублей:
У вас есть число z=5. Пользователь вводит числа в цикле, если за последние 4 попытки ввода было хотя бы одно число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если такого числа не было, то уменьшайте на 1 в ответ на каждый ввод.
Цикл и программа должны завершиться, когда число z станет отрицательным.