1. дан массив с(10). сформируйте из него массивы а и в, предварительно определив его длину, включая - id36059620210725 от MCREW 25.07.2021 18:14

Question

Информатика: 1. дан массив с(10). сформируйте из него массивы а и в, предварительно определив его длину, включая в массив а четные положительные элементы, а в массив в – нечетные отрицательные. 2. количество посещений кабинетов врачей поликлиники хранится в массиве. нечетный элемент массива определяет номер кабинета, четный – количество посещений. определите и выведите на экран число посещений каждого кабинета и общее число посещений.

MCREW · Accepted Answer

Var   d1,d2,n:integer;   k,s:longint; begin   Write( Введите натуральное двухзначное число: ); Read(n);   d1:=n div 10; d2:=n mod 10;   k:=sqr(n); s:=4*(d1*sqr(d1)+d2*sqr(d2));   Write(n, : );   if k=s then Writeln( Квадрат числа ( ,k,       ) равен учетверенной сумме кубов его цифр )   else Writeln( Квадрат числа ( ,k,       ) не равен учетверенной сумме кубов его цифр ( ,s, ) ) end. Тестовое решение: Введите натуральное двухзначное число: 48 48: Квадрат числа (2304) равен учетверенной сумме кубов...

MOGZ ответил