Составить программу для паскаля. 1) Определить количество трехзначных чисел сума цифр которых равна числу N. 2) Дано натуральное число N. Составить программу меняющихся местами первую и последнюю цифру.

1)

var s: string;

i, n, c: integer;

begin

read (n);

for i : = 100 to 999 do

begin

s:=inttostr (i);

c: = (strtoint (s[1]) + strtoint (s[2]) + strtoint (s[3]));

if (n=c) then writeln (s);

end;

end.

2)

var s: string;

begin

read (s);

swap (s[1], s[s. Length]);

write (s);

end.