Регистрация
максим1720
17.12.2020 21:41
Информатика
Есть ответ 👍

Написать программу, которая проверяет является ли введенное число двузначным или нет. если условие выполняется, то на экран выводятся число десятков и единиц исходного числа, иначе выводится сообщение "число двузначным не является".

234
470
Посмотреть ответы 2

Ответы на вопрос:

Frolinng
Frolinng
4,5(6 оценок)
//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
san11217
san11217
4,8(64 оценок)

var

   factorial,n,i: integer;    

begin

   write('n = ');  

   readln(n);

   factorial := 1;

   for i:=2 to n do

       factorial := factorial * i;

   writeln('n! = ', factorial);

readln;

end.

Популярно: Информатика