Написать программу, которая проверяет является ли введенное число двузначным или нет. если условие выполняется, то на экран выводятся число десятков и единиц исходного числа, иначе выводится сообщение "число двузначным не является".
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
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016 begin var s:=ReadLnString('Вводите:'); s.ToWords.Where(x->x=ReverseString(x)).PrintLn; end.
Тестовое решение: Вводите: дед иван достал наган и пошел с ним в шалаш дед наган и с в шалаш
Вариант, если исключить однобуквенные:
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016 begin var s:=ReadLnString('Вводите:'); s.ToWords.Where(x->x=ReverseString(x)). Where(x->x.Length>1).PrintLn; end.
Тестовое решение: Вводите: дед иван достал наган и пошел с ним в шалаш дед наган шалаш
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