Двумерные массивы.
:
в прямоугольной таблице подсчитать произведение элементов в каждой строке
составить программу на языке программирования pascal

264

311

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

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

vlad31106

Информатика

4,5(6 оценок)

// pascalabc.net 3.1, сборка 1230 от 27.04.2016 - №1 begin var a,b,c: integer; write('введите три натуральных числа: '); read(a,b,c); var s: =a+b+c; var k: =trunc(sqrt(s)); if k*k=s then writeln('сумма чисел - квадрат ',k) else writeln('сумма чисел не является квадратом целого') end. тестовое решение введите три натуральных числа: 13 4 8 сумма чисел - квадрат 5 // pascalabc.net 3.1, сборка 1230 от 27.04.2016 - №2 begin var a,b,c: integer; write('введите три натуральных числа: '); read(a,b,c); var s: =power(a*b*c,1/3); if s=int(s) then writeln('среднее - целое число') else writeln('среднее - нецелое число') end. тестовое решение введите три натуральных числа: 16 8 15 среднее - нецелое число