Question

Проверочная работа составить программы для вычисления: a) среднего арифметического кубов двух целых чисел m и n. ответ дать с точность до трёх знаков после запятой. б) дано четырёхзначное число. найти остаток от деления чисел образованных первыми двумя цифрами и последними двумя цифрами этого числа

Answer 1

{Среднего арифметического кубов двух целых чисел 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.