найдите пожалуйста ошибку(система паскаль) задача: даны два числа. вывести больше
5-9 класс
|
е из них.
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<b) then
begin
writeln ( ' 1-oe menshee. Bolshe vtoroe (',b,')' );
end;
if a=b then
begin
writeln ('oni ravni');
end;
end.
Другие вопросы из категории
Даны натуральные числа x и y вычеслить их произведение используя только операцыю сложения
Читайте также
19(16,3+7,7).а)19(16.3+7.7),в)19*(16.3+7.7).д)19(16,3+7.7).с)19*(16.3+7.7).2)Найдите правильную на языке паскаль записы выраженияа)34.5+24.5/15у в)(34.5+24.5)/15у с)(34.5+24.5)15*у.д)(34.5+24.5)/(15*у).3)Вычислите длину окружности и площадь круга одного и того же заданного радиуса R.4)Даны два числа.Найдите среднее арифметическое кубов этих чисел и среденее геометрическое модулей этих чисел.Два последних номера там нужно написать программу,программу присылать на листочке
натуральных числа вывести на экран то из них у которого цыфра меньше. пожалуйста решите 2 задачи
даны два числа.Вывести в начале большее а затем меньшее.
сел - отрицательное, то найти Iа+ b+cI иначе а+b+c +d в корне.
Даны три числа. Если произведение данных чисел - отрицательное, то каждое число возвести в квадрат, иначе найти модуль каждого числа
ПОМОГИТЕ ОЧЕНЬ ПРОШУ