Паскаль! !
с циклом while (без массива)
1. известен возраст всех учеников класса. определить самого старшего, если признак окончания ввода - 0.

2.дана последовательность целых чисел, признак окончания которой - 0. найти сумму положительных элементов, стоящих на нечетных местах. (что значит "стоящих на нечетных местах"

1)var a,b: integer;

begin

a: =-1;

while a< > 0 do

begin

read(a);

if a> b then b : =a;

end;

write('возраст самого старшего ',b);

end.

2)

var a,b,c: integer;

begin

a: =-1;

while a< > 0 do

begin

read(a);

c: =c+1;

if (a> 0)and(c mod 2=1) then b : =a;

end;

write('сумма положительных элементов , стоящих на нечетных местах равна ',b);

end.

Пусть текст кодируется по стандарту UTF-16, т.е. 2 байта на символ.

Далее нужно измерить кол-во символов в строке, потом количество строк на странице, количество страниц в учебнике.

Таким образом получим емкость страницы:

(кол-во строк на странице)*(кол-во символов в строке)*(кол-во страниц в учебнике)*2 = байт/учебник. Назовем полученную величину емкость учебника E;

1.44 Мбайт: 1.44 * 1024^2 / E

420 Мбайт: 420 * 1024^2 / E

6,4 Гбайт: 6.4 * 1024^3 / E

Объяснение: