Помогите с заданием ..........................................

Question

Помогите с заданием
..........................................

---

Answer 1

1) современный вариант на PascalABC.NET
//PascalABC.NET, Версия 3.3, сборка 1611
begin
write(max(ReadReal(),ReadReal()));
end.

2) не очень современный вариант на Turbo/Free Pascal
Program n1;
var a,b: real;
begin
readln(a,b);
if a>b then write(a) else if (aend.

3) вариант на c++
#include
using namespace std;
int main ()
{
double a,b;
cin>>a;
cin>>b;
if(a>b) cout<<a<<endl; else if (a<b) cout<<b<<endl;<br>return 0;
}

Answer 2

PascalABC.Net

var a,b:integer;
begin
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);
if a>b then
writeln('Наибольшее — ', a)
else
writeln('Наибольшее — ', b);
end.