1. Дана последовательность целых чисел a, b, c. Найти минимальное из них, и разделить на него все числа. Входные данные вводятся пользователем с экрана. Вывод так же осуществляется на экран.

Question

Информатика

Вероня

14 октября, 04:02

1. Дана последовательность целых чисел a, b, c. Найти минимальное из них, и разделить на него все числа. Входные данные вводятся пользователем с экрана. Вывод так же осуществляется на экран.

+5

Ответы (1)

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

Варя · Answer 1

Var a, b, c, min:integer; a1, b1, c1:real;

begin

write ('a=') ; readln (a) ;

write ('b=') ; readln (b) ;

write ('c=') ; readln (c) ;

if a
if c
a1:=a/min; b1:=b/min; c1:=c/min;

writeln ('min=', min) ;

writeln ('a1=', a1:5:2,' b1=', b1:5:2,' c1=', c1:5:2) ;

end.

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

a=43

b=28

c=37

min=28

a1 = 1.54 b1 = 1.00 c1 = 1.32