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

Question

Информатика

Малина

25 октября, 22:28

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

+2

Ответы (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.