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

136

373

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

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

Vvyq

Информатика

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

{ответ дан на языке pascal } // 1-ая program solution(input, output); var n1, n2, n3: integer; begin write('введите 3 числа: '); read(n1, n2, n3); if n1 < 0 then n1 : = n1 * n1 * n1 * n1 else n1 : = n1 * n1; if n2 < 0 then n2 : = n2 * n2 * n2 * n2 else n2 : = n2 * n2; if n3 < 0 then n3 : = n3 * n3 * n3 * n3 else n3 : = n3 * n3; writeln(n1); writeln(n2); writeln(n3); end. //2-ая program solution(input, output); var num: integer; n1, n2, n3: integer; begin write('введите 3-значное число: '); read(num); n1 : = (num div 100); n2 : = (num mod 100 mod 10); n3 : = (num mod 100 div 10); if(num * num) = (n1 * n1 * n1) + (n2 * n2 * n2) + (n3 * n3 * n3) then writeln('равен') else writeln('не равен'); end. //3-я program solution(input, output); var num: integer; begin write('введите месяц (1 - 12): '); read(num); case num of 1: writeln('январь'); 2: writeln('февраль'); 3: writeln('март'); 4: writeln('апрель'); 5: writeln('май'); 6: writeln('июнь'); 7: writeln('июль'); 8: writeln('август'); 9: writeln('сентябрь'); 10: writeln('октябрь'); 11: writeln('ноябрь'); 12: writeln('декабрь'); end; end.