Программы, предназначенные для разработки и отладки других программ: 1) системные 2) системы программирования 3) прикладные 4) специальные

//PascalABC.NET 3.2 сборка 1318
//Очередное решение "в лоб"

Var
  n,i,j,max:integer;
  s,curr:string;
  b:boolean=false;
begin
readln(n);
max:=-1;
s:=inttostr(n);
for i:=1 to length(s) do
  begin
    curr:='';
    for j:=i downto 1 do
      begin
        curr:=s[j]+curr;
        if frac(sqrt(strtoint(curr)))=0 then
          begin
            b:=true;
            if sqrt(strtoint(curr))>max then max:=round(sqrt(strtoint(curr)));
          end;
      end;
 end;
if b then writeln(max) else writeln('0');
end.

Пример ввода 1:
164
Пример вывода 1:
8
Пример ввода 2:
523
Пример вывода 2:
0

1. 
алг
нач
 цел а
 ввод а
 вывод div(a, 1000), 'тонн'
кон
2.
var x, i: integer;
begin
write('Введите трёхзначное число: ');
readln(x);
if ( x <100 ) OR ( x>100 ) then writeln('Число не трёхзначное!')
else
begin
i :=x mod 10; write(i)
write(x div 100);
write(x div 10 mod 10);
end;
end.
3.

Было число ав

Стало число 2ав2

Разложим его на разряды

2ав2=2*1000+а*100+в*10+2=2002+100а+10в

По условию задачи это в 32 раза больше исходного двузначного числа ав, т.е.:

32ав=2ав2  ( Число ав тоже разложим на разряды, получим 10а+в)

32(10а+в)=2002+100а+10в

32(10а+в)=2002+10(10а+в)

32(10а+в)-10(10а+в)=2002

22(10а+в)=2002

10а+в=2002:22

10а+в=91

Итак, искомое число 91