Паскаль АВС :

дано 2 числа а,б вивести найменше з них​

misha223414 misha223414    3   27.05.2020 00:49    0

Ответы
2156kolllokir 2156kolllokir  15.10.2020 09:41

program meister;

var a,b:integer;

begin

writeln('Введите a: ');

readln(a);

writeln('Введите b: ');

readln(b);

if a< b then writeln("больше число a")

else writeln("больше число b");

end.

ПОКАЗАТЬ ОТВЕТЫ
liliya134 liliya134  15.10.2020 09:41
begin var (a,b) := ReadInteger2; if a<b then print('Найменше:',a) else if a>b then print('Найменше:',b) else print('Они равны') end.

Пример работы:


Паскаль АВС :дано 2 числа а,б вивести найменше з них​
Паскаль АВС :дано 2 числа а,б вивести найменше з них​
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика