Ответ:

Program z_3;

var a,b,n,s, i: integer;

Begin

repeat

writeln ('Введите Ваше число');

readln (n);

if (n < 10) or (n > 99) then i:= 0

else i:= 1;

until i>0;

a:= n mod 100 div 10;

b:= n mod 10;

s:= (a+b)+sqr (a+b);

if s <> n then writeln ('Число не соотвествует условию')

else writeln ('Число ',s, ' соответствует условию');

End.

sikringbp и 7 других пользователей посчитали ответ полезным!

СПАСИБО

4

4,0

(3 оценки)

3

ilczr avatar

программу можно проверить на числе 12

спасибо)

ilczr avatar

Program z_3;

var a,b,s, i: integer;

Begin

for i:=10 to 99 do begin

a:= i mod 100 div 10;

b:= i mod 10;

s:= (a+b)+sqr (a+b);

if s = i then writeln ('Число ',s, ' соотвествует условию')

end;

End