Напишите процедуру, которая выводит на экран максимальное из трех переданных целых чисел.
program u14_1_z8;
var a,b,c:integer;
procedure p1(a,b,c: integer);
var max,d: integer;
begin
if (a > b) then
max:=a
else
max:=b;
d:=max;
if (d > c) then
max:= d
else
max:=c;
writeln('maxsimalnoe ',max);
end;
begin
writeln('vvedite 3 chisla');
readln(a,b,c);
p1(a,b,c);
readln();
end.
Пользователь по запросу программы вводит в цикле целые положительные числа, до тех пор пока не введет число большее 30. В ответ на каждое введенное пользователем число выводите все числа от 1 до этого введенного числа m
.
При этом:
за выводит чисел от 1 до $m должна отвечать процедура
получение значения должно проходить в теле основной программы
Пользователь передает целое положительное число N
, выведете на экран последовательность от 1
до N
, так чтобы ширина "ёлочки" росла волнами. Например, для N=49
получим:
123--сначала до двух456789--потом до трёх101112--возвращаемся к одному131415161718192021--тут уже четыре2223242526--снова убывает 2728293031323334353637383940414243444546474849
Пользователь передает целые положительные число N
и M
, выведете на экран последовательность от 1
до N
, так чтобы ширина "ёлочки" увеличивалась до M
чисел, то уменьшалась до 1
. Например, для M=3
и N=19
получим:
123456--максимум три числа7891011121314--снова три числа1516171819.....