Question

найдите пожалуйста ошибку(система паскаль)  задача: даны два числа. вывести большее из них. program zadacha6; var a,b: real; begin readln(a,b); if a>b then writeln ( ' a bolshe ' ) else writeln ( ' a menshee ' ); end. 

Answer 1

program zadacha6; var a,b: real; begin readln(a,b); if a>b then writeln (a) else writeln (b); end.

не? я не уверен

Answer 2

Я бы сделал так....

program p_1;
var a,b: real;
begin
writeln ('Vvedite 1-oe');
read (a);
writeln ('Vvedite 2-oe');
read (b);
if (a>b) then
begin writeln ( ' 1-oe bolshe (',a,')' );
end;
if (a<b) then
begin
writeln ( ' 1-oe menshee. Bolshe vtoroe (',b,')' );
end;
if a=b then
begin
writeln ('oni ravni');
end;
end. 

Answer 3

Ошибки в вашем коде нет. Однако, символ > вместо оператора > является ошибкой. Это может быть следствием неправильного форматирования или проблемы с кодировкой при копировании кода.

Вот исправленный вариант кода:

pascalCopy code
program zadacha6;
var
  a, b: real;

begin
  readln(a, b);
  
  if a > b then
    writeln('a bolshe')
  else if b > a then
    writeln('b bolshe')
  else
    writeln('a ravno b');
end.

Теперь код должен работать правильно. Он считывает два числа, сравнивает их и выводит сообщение о том, какое из чисел больше. Если числа равны, выводится сообщение "a ravno b" (a равно b).