Ответы на вопрос:
Type num=1..999; var x: num; k,y: integer; begin write('x='); readln(x); y: =x; k: =0; while y< > 0 do begin y: =y div 10; k: =k+1; end; if (x mod 2)=0 then write('четное ') else write('нечетное '); if k=1 then write('однозначное ') else if k=2 then write ('двухзначное ') else write('трехзначное '); writeln('число'); end.
Популярно: Информатика
-
boykina2226.03.2022 03:01
-
Vadim20012907.05.2022 22:18
-
ighy610.05.2021 03:55
-
Emir346712.05.2021 12:29
-
mashkakornilova06.02.2023 16:11
-
Valik12321115.02.2023 13:55
-
natusikfire25.03.2020 14:29
-
daniilzimin931.03.2023 10:35
-
katyakhmel20019.04.2021 12:11
-
Rita100728.02.2021 11:31