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

Question

Информатика

Прокоп

17 апреля, 09:39

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

+2

Ответы (1)

Знаете ответ на вопрос?

Лика · Answer 1

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.