1 Найти наибольшее значение среди трёх величин a, b, c, с добавлением дополнительной переменной и приставить ей наибольшее значение.

2 Дана величена a, выражающая обьём вбайтах перевести а, в более крупные единици измерения информации (Кб, Мб, Гб, Терабайт) составить на неё блог схему.

Question

Информатика

Риммична

26 июля, 20:01

1 Найти наибольшее значение среди трёх величин a, b, c, с добавлением дополнительной переменной и приставить ей наибольшее значение.

2 Дана величена a, выражающая обьём вбайтах перевести а, в более крупные единици измерения информации (Кб, Мб, Гб, Терабайт) составить на неё блог схему.

+4

Ответы (1)

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

Фекуса · Answer 1

1.

program maxmin;

var a, b, c:real; max, min:integer;

begin

readln (a) ;

readln (b) ;

readln (c) ;

if a>b then max:=a else max:=b;

if c>max then max:=c;

if aif min>c then min:=c;

writeln ('min=', min) ;

writeln ('max=', max) ;

end.