Помогите написать программу по информатике, надо из 3 целых чисел найти наименьшее, 8 класс

Question

Информатика

Анект

24 октября, 20:52

Помогите написать программу по информатике, надо из 3 целых чисел найти наименьшее, 8 класс

+4

Ответы (1)

Знаете ответ?

Петюка · Answer 1

Program p1;

var a, b, c, x:integer;

begin

writeln ('Введите первое число') ;

readln (a) ;

writeln ('Введите второе число ') ;

readln (b) ;

writeln ('Введите третье число ') ;

readln (c) ;

if a
if x>c then x:=c;

writeln ('Наименьшее = ', x) ;

end.