Найдите пожалуйста ошибку(система паскаль) задача: даны два числа. вывести большее из них. program zadacha6; var a,b: real; begin readln(a,b); if a больше b then writeln ( ' a bolshe ' ) else writeln ( ' a menshee ' ); end.
Найдите пожалуйста ошибку(система паскаль) задача: даны два числа. вывести большее из них. program zadacha6; var a,b: real; begin readln(a,b); if a>b then writeln ( ' a bolshe ' ) else writeln ( ' a menshee ' ); end.
Гость
Ответ(ы) на вопрос:
Гостьprogram zadacha6; var a,b: real; begin readln(a,b); if a>b then writeln (a) else writeln (b); end. не? я не уверен
ГостьЯ бы сделал так.... 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
Не нашли ответ?
Похожие вопросы