Написать программу, которая проверяет является ли введенное число двузначным или нет. Если условие выполняется, то на экран выводятся число десятков и единиц исходного числа, иначе выводится сообщение "Число двузначным не является".
//Pascal ABC.NET 3.1 сборка 1256
Var
a:integer;
s:string;
begin
readln(a);
s:=inttostr(a);
if length(s)=2 then
begin
writeln(Десятков:,s[1]);
write(Единиц:,s[2]);
end
else
writeln(Число двузначным не является);
end.
Пример ввода:
27
Пример вывода:
Десятков:2
Единиц:7
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
