помогите с заданием ..........................................
Answers & Comments
Вованичикчка
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; }
var a,b:integer; begin write('Введите первое число: '); readln(a); write('Введите второе число: '); readln(b); if a>b then writeln('Наибольшее — ', a) else writeln('Наибольшее — ', b); end.
Answers & Comments
//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;
}
Verified answer
PascalABC.Netvar a,b:integer;
begin
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);
if a>b then
writeln('Наибольшее — ', a)
else
writeln('Наибольшее — ', b);
end.