ПОМОГИТЕ НАПИСАТЬ ПРОГРАММЫ В ПАСКАЛЕ!!!!! 1.Определить сумму цифр натурального числа n и...

Question

ПОМОГИТЕ НАПИСАТЬ ПРОГРАММЫ В ПАСКАЛЕ!!!!! 1.Определить сумму цифр натурального числа n и вывести его запись в обратном порядке 2.Найти первое натуральное число, квадрат которого больше n.

Answer 1

1.

var n,s:integer;

begin

write ('Введите число: ');

readln(n);

write ('Запись в обратном порядке: ');

if n

begin

write ('-');

n:=abs (n)

end;

while n>0 do

begin

s:=s+n mod 10;

write (n mod 10);

n:=n div 10

end;

writeln;

write ('Сумма цифр: ',s);

end.

2.

var n,i:integer;

begin

write('Введите число: ');

readln(n);

while i*i<=n do i:=i+1;</p>

writeln('Первое натуральное число, квадрат которого больше ',n,': ',i)

end.