Вопрос, который вызвал трудности
ПОМОГИТЕ ПОЖАЛУЙСТА
Преобразовать алгоритм, записанный на алгоритмическом языке в программу на языке Pascal
алг максимальное число
нач цел a,b,m
ввод a,b
если a>=b
то m:=a
иначе m:= b
все
вывод m
кон
Ответ экспертов Учись.Ru
Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.
После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:
1. Free Pascal
program MaxNum;
var a,b,m:integer;
begin
Read(a,b);
if a>=b
then m:=a
else m:=b;
Writeln(m)
end.
2. PascalABC.NET 3.2
program МаксимальноеЧисло;
begin
var a,b,m:integer;
Read(a,b);
if a>=b
then m:=a
else m:=b;
Writeln(m)
end.
program MaxNum;
var a,b,m:integer;
begin
Read(a,b);
if a>=b
then m:=a
else m:=b;
Writeln(m)
end.
2. PascalABC.NET 3.2
program МаксимальноеЧисло;
begin
var a,b,m:integer;
Read(a,b);
if a>=b
then m:=a
else m:=b;
Writeln(m)
end.