function sum(i, n: <em>integer</em>): <em>boolean</em>;
var
a, b: <em>integer</em>;
begin
a := i;
repeat
b := b + a mod 10;
a := a div 10;
until (a = 0);
sum := (b = n);
end;
var
n, i, k: <em>integer</em>;
begin
readln(n, k);
for i := 1 to k do
if sum(i, n) then
writeln(i);
end.
1) посчитаем количество квартир в подъезде 1953-(1737-1)=217
количество подъездов 1953/217=9
2) ряд задается формулой a [i+1]=a [i]+3^I
считаем ряд дальше 26+81=107
107+343=450
450+1029=1479
3)
Б О Р И С
50 67 95 32 48
Вот в придложенном файле работающая программа, только я пока не догнал как ее коруглить, чтобы в ответе не было число + куча нолей в степени Е+00, а было просто числа например 2.5 или 3,7 или просто 5 или 7
Держи)помоги пожалуйста мне))