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.