Напишите программу, которая будет заполнять массив из 10 элементов случайными числами из диапазона от 0 до 20, при этом в полученном массиве не должно быть одинаковых значений.
1.У вас есть число z=5. Пользователь вводит числа в цикле, если за последние 4 попытки ввода было хотя бы одно число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если такого числа не было, то уменьшайте на 1 в ответ на каждый ввод.
Цикл и программа должны завершиться, когда число z станет отрицательным.
1.. У вас есть число z=5. Пользователь вводит числа в цикле, если очередное введенное число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если меньше 15, то уменьшайте на 1. Цикл и программа должны завершиться, когда число z станет отрицательным.
1.Пользователь вводит целое 5-тизначное число, выведите все его цифры в обратном порядке
var a,b:integer;
begin
writeln('Vvedite chiso iz 5 znakov: ');
readln(a);
while (a>0) do
begin
b:=a mod 10;
write (b);
a:=a div 10;
end;
readln();
end.
Вывод консоли:
Vvedite chiso iz 5 znakov:
12345
54321