Вопрос по информатике:
0..9: whitelh (однозначное)
10..99: writelh (двузначное)
100..999: writelh (трёхзначное)
1000..9999: writelh (четырёхзначное)
10000..99999: writelh (пятизначное)
end
Вводится оценка цифрами, необходимо напечатать словами.
Пожаловаться
- 18.07.2018 02:01
- Информатика
- remove_red_eye 15004
- thumb_up 25
Ответы и объяснения 1
Var
x:integer;
Begin
Readln(x);
If (x < 10)
then Writeln('однозначное')
else
If (x < 100)
then Writeln('двузначное')
else
If (x < 1000)
then Writeln('трехзначное')
else
If (x < 10000)
then Writeln('четырехзначное')
else
If (x < 100000)
then Writeln('пятизначное');
end.
x:integer;
Begin
Readln(x);
If (x < 10)
then Writeln('однозначное')
else
If (x < 100)
then Writeln('двузначное')
else
If (x < 1000)
then Writeln('трехзначное')
else
If (x < 10000)
then Writeln('четырехзначное')
else
If (x < 100000)
then Writeln('пятизначное');
end.
Пожаловаться
- 20.07.2018 00:35
- thumb_up 9
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы