Var
n,max:real;
begin
max:=-maxint;
writeln('Вводите числа');
repeat
repeat
readln(n);
if (n<>round(n)) then writeln('Введено не целое!');
until (n=round(n));
if n>max then max:=n;
until n=0;
writeln('Максимум: ',max);
end.
_______________________
var
n1,m1:real;
n,m,c,result,ost:integer;
begin
ost:=1;
writeln('Введите 2 числа');
repeat
readln(n1,m1);
if (n1<>round(n1))or(m1<>round(m1)) then writeln('Введено не целое!');
until (n1=round(n1))and(m1=round(m1));
n:=round(n1);
m:=round(m1);
while ost<>0 do
begin
if m>n then
begin
c:=m;
m:=n;
n:=c;
end;
ost:= n mod m;
result:=m;
n:=ost;
end;
writeln('НОД: ',m);
end.
В задаче достаточно держать в памяти два числа: наибольшее и второе по величине – и обновлять эту пару, считывая числа. Если считанное число больше максимального, то оно будет новым максимумом, а бывший максимум станет вторым по величине; если считанное число меньше максимального, но больше второго по величине, то оно становится новым вторым по величине.
Реализация (python 3):
max, max2 = int(input()), int(input())
if max2 > max:
max, max2 = max2, max
while True:
t = int(input())
if t == 0: break
if t > max:
max, max2 = t, max
elif t > max2:
max2 = t
print(max2)
Пример ввода:
5
1
3
2
4
0
Пример вывода:
4
1) 8 страниц * на 72 строки * 48 символов = 27648 символов - общий объем статьи.
2) информационный объем будет равен количеству символов умноженному на размер кодировки для символа, т.е. 27648 * 8 = 221184 бита.
3) Так как в вариантах ответа есть объем в Кбайтах и в Кбитах, то считать нужно и в байтах и в битах соответственно.
221184 бит - вариант №3 отпадает сразу
221184 бит / 1024 = 216 Кбит - наш ответ
221184 бит /8 = 27648 байт - отпадает вариант №2
221184 бит /8 = 27648 байт / 1024 = 27 Кбайт - отсекает вариант №1
Таким образом правильный ответ 4) 216 Кбит
Ответ:
Объяснение: Она самая сказочная из всего, что меня окружает." Уже вслух сказал сказочный бегемотик своим сказочным голосом. Как хорошо жить в сказочном мире!