1. Даны три действительных числа. Возвести в квадрат те из них, значения которых...

Question

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

Answer 1

//Первая
var a,b,c:integer;beginread(a,b,c);if a>0 then a:=a*a else a:=a*a*a*a;if b>0 then b:=b*b else b:=b*b*b*b;if c>0 then c:=c*c else c:=c*c*c*c;write(a,' ',b,' ',c);end.
//вторая
var a,b,c:integer;beginread(a);if(a<100)or(a>999)then write('Заданное число не трехзначное!');if (a>99) and (a<1000)thenbeginb:=a*a;while a<>0 dobeginc:=c + a mod 10;a:=a div 10;end;c:=c*c*c;if c=a then write('Квадрат равен кубу суммы цифр')else write('Квадрат НЕ равен кубу суммы цифр')end;end.
//Третья
var a:integer;beginread(a);if a=1 then write('Январь');if a=2 then write('Февраль');if a=3 then write('Март');if a=4 then write('Апрель');if a=5 then write('Май');if a=6 then write('Июнь');if a=7 then write('Июль');if a=8 then write('Август');if a=9 then write('Сентябрь');if a=10 then write('Октябрь');if a=11 then write('Ноябрь');if a=12 then write('Декабрь');end.

Comments

Как всегда слиплись строки в этом глупом портале..(