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

224

234

Посмотреть ответы 2

Ответы на вопрос:

miniahmetovtimu

Информатика

4,4(49 оценок)

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

тони2006

Информатика

4,8(90 оценок)

PascalABC.NET begin var a := ArrRandom(ReadInteger('Кількість:'),-50,50); Println('Елементы:',a.JoinToString); Println('Найбільший парний:',a.Where(x->x.IsEven).Max); Println('Найбільший непарний:',a.Where(x->x.IsOdd).Max); Println('Найменшийпарний:',a.Where(x->x.IsEven).Min); Println('Найменшийнепарний:',a.Where(x->x.IsOdd).Min); end.

Пример работы: