Вопрос по информатике:
Пожалуйста помогите.Составить в паскале программу:
Вводится целое число С. Если -9<=C<=9 вывести величину числа в словес ной форме с учетом знака, в противном случае - предупреждающее сообщение и повторный ввод.
Пожаловаться
- 26.05.2018 09:59
- Информатика
- remove_red_eye 12191
- thumb_up 10
Ответы и объяснения 1
Var
c:shortint;
begin
while true do
begin
Write('Введите число от -9 до 9: ');
Readln(c);
if (c>=-9) and (c<=9) then break;
Writeln('Неверный ввод')
end;
if c<0 then
begin
Write('минус ');
c:=-c;
end;
case c of
0:Writeln('ноль');
1:Writeln('один');
2:Writeln('два');
3:Writeln('три');
4:Writeln('четыре');
5:Writeln('пять');
6:Writeln('шесть');
7:Writeln('семь');
8:Writeln('восемь');
9:Writeln('девять')
end
end.
c:shortint;
begin
while true do
begin
Write('Введите число от -9 до 9: ');
Readln(c);
if (c>=-9) and (c<=9) then break;
Writeln('Неверный ввод')
end;
if c<0 then
begin
Write('минус ');
c:=-c;
end;
case c of
0:Writeln('ноль');
1:Writeln('один');
2:Writeln('два');
3:Writeln('три');
4:Writeln('четыре');
5:Writeln('пять');
6:Writeln('шесть');
7:Writeln('семь');
8:Writeln('восемь');
9:Writeln('девять')
end
end.
Пожаловаться
- 27.05.2018 03:13
- thumb_up 31
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы