Регистрация
Ртдотк
27.05.2023 22:06
Информатика
Есть ответ 👍

Задача:Знайти довжину або кількість символів свого прізвища,імені і по-батькові (За допомгою lan скоріше всього)

144
431
Посмотреть ответы 1

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

arinashabalina1
arinashabalina1
4,5(2 оценок)
Pascal   var    a,b : integer;     r : boolean;       begin  readln (a);   r : = true;     b : = a mod 10;         while a > 0 do      begin      if a mod 10 < > b then      begin        r : = false;         a : = 0;       end;       a : = a div 10;       end;           if r then    writeln ('все цифры числа одинаковы')    else    writeln ('цифры числа различны');   end.

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