Вопрос по информатике:
Написать программу, которая разрешает вводить с клавиатуры двузначное число N. Вывести на экран N^2, если число имеет две одинаковые цифры и N/2 у противоположном случае. Условие окончания программы - ввод однозначного числа. Сообщения про некорректность данных вывести красным цветом, а про окончание работы программы - зеленым.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 02.04.2015 11:19
- Информатика
- remove_red_eye 7437
- thumb_up 8
Ответы и объяснения 1
Var
N,A:integer;
Begin
TextColor(15);
Repeat
ClrScr;
Write('N = ');ReadLn(N);
A:=Abs(N);
if A > 9 then
Begin
if A > 99 then
Begin
ClrScr;
TextColor(12);
Write('(!!!) -99 <= N <= 99 (!!!) ');
TextColor(15);
End
else
if A div 10 = A mod 10 then WriteLn('N^2 = ',A*A)
else WriteLn('N/2 = ',N/2)
End;
Delay(1300);
Until A < 10;
TextColor(10);
Write('BbIXOD');ReadKey
End.
- 03.04.2015 12:16
- thumb_up 9
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.