Var a,b:integer; begin read(a); b:= a mod 10; if b=0 then writeln('Ноль') else if b=1 then writeln('Один') else if b=2 then writeln('Два') else if b=3 then writeln('Три') else if b=4 then writeln('Четыре') else if b=5 then writeln('Пять') else if b=6 then writeln('Шесть') else if b=7 then writeln('Семь') else if b=8 then writeln('Восемь') else writeln('Девять'); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
