найдите пожалуйста ошибку(система паскаль) задача: даны два числа. вывести большее из...

0 голосов
58 просмотров

найдите пожалуйста ошибку(система паскаль)

задача:

даны два числа. вывести большее из них.

program zadacha6;

var a,b: real;

begin

readln(a,b);

if a>b then writeln ( ' a bolshe ' ) else writeln ( ' a menshee ' );

end.


Информатика (66 баллов) | 58 просмотров
Дано ответов: 2
0 голосов

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

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

(138 баллов)
0 голосов

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

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 (abegin
writeln ( ' 1-oe menshee. Bolshe vtoroe (',b,')' );
end;
if a=b then
begin
writeln ('oni ravni');
end;
end. 

(1.0k баллов)