Вопрос по информатике:
1. Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны, и в четвертую степень – отрицательные. 2. Определить, равен ли квадрат заданного трехзначного числа кубу суммы цифр этого числа. 3. Написать программу, которая по данному числу (1-12) выводит название соответствующего ему месяца.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 03.06.2015 10:27
- Информатика
- remove_red_eye 14340
- thumb_up 42
Ответы и объяснения 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(a999)then write('Заданное число не трехзначное!');if (a>99) and (a<1000)thenbeginb:=a*a;while a0 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.
- 04.06.2015 17:43
- thumb_up 3
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.