На pascalABC программа подойдет?
Если Миша дед Сергея а Гриша приятель Миши а Коля друг Сергея то внук Миши это Сергей
Program n1;
var a,b: integer;
begin
readln(a,b);
if(a mod 2=0) and (b mod 2=0) then
if a>b then write(a) else if b>a then write(b);
if(a mod 2<>0) and (b mod 2<>0)
then if a<b then write(a) else
if b<a then write(b);
if((a mod 2=0) and (b mod 2<>0)) or ((a mod 2<>0) and (b mod 2=0))
then write(a*b);
end.
смотри надо 8 гб перевести в биты
1гб=1024мб
1мб=1024 байта
1байт=8бит
8гб = 68 719 476 736 бит
теперь надо вычислить сколько бит в 1 странице
40*60*8=19 200
теперь надо узнать сколько таких страниц получится
68 719 476 736 / 19 200 =3 579 139,4 округляем в большую сторону
= 3 579 140 страниц в 8гб оперативной памяти
теперь высота стопки
3 579 140/100=35 791,4 см
35 791,4 см= 357,914 метров = 0,357914 км