Вопрос по информатике:
ввести 3 числа чётные возвести в квадрат, а не чётные оставить без изменений
Пожаловаться
- 14.04.2015 08:57
- Информатика
- remove_red_eye 12616
- thumb_up 50
Ответы и объяснения 1
Var a,b,c:integer;begin Read(a,b,c);If a mod 2=0 thena:=a*a;If b mod 2=0 thenb:=b*b;If c mod 2=0 thenc:=c*c;Writeln(a,' ',b,' ',c)end.
Пожаловаться
- 15.04.2015 14:05
- thumb_up 26
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы