1. Посчитать значений выражений "N=a2-5/a+4 (Смотрите фото) " 5 раз.

2. Сравнить 2 числа и вывести на экран, наибольшее из них.

1

Ответы и объяснения

2013-05-16T16:22:23+04:00

1)var a,n,c:integer;

begin
writeln('Введите число');

readln(a);

for c:=1 to 5 do begin n:=a2-5/a+4
writeln(n);

end;

readln;

end.

var a,b:integer;

begin
writeln('Введите числа');

readln(a,b);

if (a>b) then writeln(a) else
writeln(b);

readln;

end.