Вывести на экран N случайных чисел (каждое с новой строки). Для каждого числа, начиная со второго, рядом выводить - больше ли оно предыдущего или меньше. например:
Вывести на экран N случайных чисел (каждое с новой строки) из диапазона [-21, 35]
ПРИМЕЧАНИЕ: подразумевается, что вы должны организовать цикл, который выполнится N раз и при этом в каждом своём витке выведет на экран случайное число.
Пользователь получает на вход целое положительное число N напишите рекурсивную процедуру, которая выведет все числа Фиббоначи от первого до N-ого
var i1, i2, z, n: integer;
procedure Fibbonschi(i1, i2, n: integer; var z: integer);
begin
write(i1,' ');
inc(z);
if (z < n) then
Fibbonschi(i2, i2 + i1, n, z);
end;
begin
z:=0;
writeln('Vvedite n');
readln(n);
Fibbonschi(0, 1, n, z);
readln();
end.
У вас есть число z=5. Пользователь вводит числа в цикле, если за последние 4 попытки ввода было хотя бы одно число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если такого числа не было, то уменьшайте на 1 в ответ на каждый ввод.
Цикл и программа должны завершиться, когда число z станет отрицательным.
У вас есть число z=5. Пользователь вводит числа в цикле, если очередное введенное число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если меньше 15, то уменьшайте на 1. Цикл и программа должны завершиться, когда число z станет отрицательным.
Пользователь вводит целое 5-тизначное число, выведите все его цифры в обратном порядке, например для 14564
var a,b : integer;
begin
writeln('write five-digit number');
readln(a);
while ((a mod 10) <> 0) do
begin
b:= a mod 10;
a:= a div 10;
write(b);
end;
readln();
end.