Преобразовать алгоритм, записанный на алгоритмическом языке в программу на языке pascal алг максимальное число нач цел a,b,m ввод a,b если a> =b то m: =a иначе m: = b все вывод m кон

cfvjktn8 cfvjktn8    2   31.08.2019 20:50    12

Ответы
Alinalime10 Alinalime10  06.10.2020 08:23
Program maximum_value;

var
    a, b, m: integer;

begin
    read(a, b);
    if a >= b then
        m := a
    else m := b;
    writeln(m);
end.
ПОКАЗАТЬ ОТВЕТЫ
Ilyauhdhbtxskr Ilyauhdhbtxskr  06.10.2020 08:23
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика