(паскаль или delphi) написать программу поиска двухзначных чисел, удовлетворяющих следующему условию: если к сумме цифр числа прибавить квадрат этой суммы, то получится само число.

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.

1.первое число - целочисленный тип
второе - вещественный
разные диапазоны 
2.1) s := (x1+x2)/2
2) dec(k) или k:=k-1
3) inc(i) или i:=i+1
4) sum := t*kt + r*kr + k*kk (t, r, k - цена одной тетради, ручки, карандаша;  kt, kr, kk - количество тетрадей, ручек и карандашей) 
 
2.
а) значения функции y=х(в квадрате)
var y,x: real
 
б) площади прямоугольника
var a,b,s: real
 
в)стоимости покупки,состоящей из нескольких тетрадей и такого же кол-ва обложек
var kv:integer; st,so,sum: real
 
г)стоимости покупки,состоящей из нескольких тетрадей,нескольких ручек и нескольких карандашей
var kvt,kvr,kvk:integer; st,sr,sk,sum: rea

1.

1) s := (x1+x2)/2

2) dec(k) или k:=k-1

3) inc(i) или i:=i+1

4) sum := t*kt + r*kr + k*kk (t, r, k - цена одной тетради, ручки, карандаша;  kt, kr, kk - количество тетрадей, ручек и карандашей) 

 

2.

а) значения функции y=х(в квадрате)

var y,x: real

 

б) площади прямоугольника

var a,b,s: real

 

в)стоимости покупки,состоящей из нескольких тетрадей и такого же кол-ва обложек

var kv:integer; st,so,sum: real

 

г)стоимости покупки,состоящей из нескольких тетрадей,нескольких ручек и нескольких карандашей

var kvt,kvr,kvk:integer; st,sr,sk,sum: real