Регистрация
ворона1111
24.06.2021 16:28
Информатика
Есть ответ 👍

Введите наибольшее из данных чисел (программа должна вывести ровно одно целое число). free pascal 2.4.4

158
458
Посмотреть ответы 2

Ответы на вопрос:

danil1365334
danil1365334
4,7(57 оценок)
Function max(a,b : integer) : integer; begin   if a> =b then max: =a else max: =b; end; var x,y : integer; begin   readln(x,y);   writeln(max(x,y)); end.
андрей2096
андрей2096
4,7(31 оценок)
Var x,y,r: real; begin write('x, y: '); readln(x,y); write('r = '); readln(r); if x*x+y*y> r*r   then writeln('точка находится внутри круга')   else if x*x+y*y=r*r         then writeln('точка находится на окружности')         else writeln('точка находится вне круга'); end. пример: x, y: 3 4 r = 5 точка находится на окружности

Популярно: Информатика