Проверочная работа

Составить программы для вычисления:

a) Среднего арифметического кубов двух целых чисел m и n.

Ответ дать с точность до трёх знаков после запятой.

б) Дано четырёхзначное число. Найти остаток от деления чисел образованных первыми двумя цифрами и последними двумя цифрами этого числа

{Среднего арифметического кубов двух целых чисел m и n.

Ответ дать с точность до трёх знаков после запятой. }

var

m, n: integer;

begin

read (m, n) ;

writeln ((m * m * m + n * n * n) / 2:3) ;

end.

{Дано четырёхзначное число. Найти остаток от деления

чисел образованных первыми двумя цифрами и последними

двумя цифрами этого числа}

var

i, n, n1, n2: integer;

begin

read (n) ;

n1 : = n div 100;

n2 : = n mod 100;

writeln (n1 mod n2) ;

end.