Введенное целое число, состоящее не более чем из 5 десятичных цифр, старшая из которых не равна 0, записали - id1074128220210524 от SmaGe2017 24.05.2021 18:54

Question

Информатика: Введенное целое число, состоящее не более чем из 5 десятичных цифр, старшая из которых не равна 0, записали 4 раза подряд. Полученное число возвели в квадрат. Требуется определить, чему равен результат этих действий. На вход программе подается одно натуральное число, не превосходящее 99999. Программа должна вывести результат описанных операций над этим числом. Примеры Ввод Вывод 10 102030403020100

SmaGe2017 · Accepted Answer

uses crt; var s:string;     c:char;     m:set of char;     n,i,k,p:byte; begin writeln( Введите текст из строчных латинских букв, окончаание ввода Enter ); s:= ; repeat c:=readkey; if c in [ a .. z ] then  begin   write(c);   s:=s+c;  end; if c=#13 then writeln until c=#13; n:=length(s); m:=[]; for c:= a to z do  begin   k:=0;   for i:=1 to n do   if s[i]=c then k:=k+1;   if k 1 then m:=m+[c];  end; if m=[] then write( Нет букв, встречающихся более 1 раза ) else  for c:= a to z do  if c in m then...

MOGZ ответил