Отчет по практике: Основы программирования

Программа нахождения большего из четырех чисел, используя подпрограмму нахождения большего из двух чисел.

Var a,b,c,d,res1,res2,res3:integer;

Procedure Poisk(Var c1,c2:integer; var Res:integer);

Begin

if c1>c2 then res:=c1

else

res:=c2;

End;

begin

write('Введите 1-ечисло: ');

readln(a);

write('Введите 2-ечисло: ');

readln(b);

write('Введите 3-е число: ');

readln(c);

write('Введите 4-е число: ');

readln(d);

Poisk(a,b,res1);

Poisk(c,d,res2);

Poisk(res1,res2,res3);

writeln('Результат = ',res3);

end.

2. Цикл с параметром.

Ввести натуральное число N. Получить все его натуральные делители.

program p1;

label 1;

var i,n:integer;

prod:char;

begin

--> ЧИТАТЬ ПОЛНОСТЬЮ <--