Регистрация
Кристинаlike
10.03.2021 03:00
Информатика
Есть ответ 👍

Переведите целые числа из десятичной системы счисления в восьмеричную: а) 513; б) 600; в) 2010.

193
412
Посмотреть ответы 1

Ответы на вопрос:

Акируя
Акируя
4,6(92 оценок)

var n, a, i, max, num, min: integer;  

begin

max : = 0;  

min : = 301;  

num : = 0;

readln(n);

for i : = 1 to n do

begin

readln(a);

if a > max then max : = a;  

if a < min then min : = a;  

if a < = 30 then num : = num + 1;

end;

writeln(max - min);  

writeln(num)

end.

Популярно: Информатика