Ответы
Ответ дал:
0
PascalABC.Net
var a,b:integer;
begin
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);
if a>b then
writeln('Наибольшее — ', a)
else
writeln('Наибольшее — ', b);
end.
var a,b:integer;
begin
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);
if a>b then
writeln('Наибольшее — ', a)
else
writeln('Наибольшее — ', b);
end.
Ответ дал:
0
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 (a<b) then write(b);
end.
3) вариант на c++
#include <iostream>
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;
return 0;
}
//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 (a<b) then write(b);
end.
3) вариант на c++
#include <iostream>
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;
return 0;
}
Вас заинтересует
1 год назад
2 года назад
8 лет назад
8 лет назад
8 лет назад