написать на паскале программу .определить что меньше а или б.

5-9 класс

Vingosovov 28 сент. 2013 г., 23:41:01 (10 лет назад)

Рейтинг

+ 0 -

Хороший вопрос

0 Жалоба

Ответить

+ 0 -

Leraleralera9898

29 сент. 2013 г., 1:39:21 (10 лет назад)

var a, b: real;
begin
readln(a, b);
if (a > b) then writeln(a, ' > ', b);
if (a = b) then writeln(a, ' = ', b);
if (a < b) then writeln(a, ' < ', b);
end.

Так =)

Хороший ответ

0 Жалоба Ответить

+ 0 -

Vfrcbv132002

29 сент. 2013 г., 3:28:08 (10 лет назад)

program 123;
uses crt;
var
a,b: integer;
begin
clrscr;
writeln(' enter a,b');
readln(a,b);
if (a<=b) then min:=a
if (b<=a) then min:=b
writeln('min=',a,'min=',b);
readln;end.

Хороший ответ

0 Жалоба Ответить

Ответить

Другие вопросы из категории

ноно8 / 27 сент. 2013 г., 16:28:25

Лишнее слово и почему?

Жесткий диск,
flash-память, компакт-диск, процессор.

Принтер,
акустические колонки, наушники, микрофон.

Системный блок,
центральный процессор, оперативная память, жесткий диск, блок питания.

Системный блок,
клавиатура, мышь, монитор, акустические колонки.

Видеокарта,
карта расширения, звуковая карта, сетевая карта.

Enter, End, Esc,
Delete.
Цветной принтер,
лазерный принтер, матричный принтер,
струйный принтер.