Напишите программу которая запрашивает трёхзначное число получает из него перевёрнутое...

Question

Напишите программу которая запрашивает трёхзначное число получает из него перевёрнутое число и выводит его на экран Информатика 8 класс, помогите пожалуйста!!!

Answer 1

1 задача

program proga;

var st,st2:string;

i:Integer;

begin

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

readln(st);

for i:=1 to length(st) do begin

st2:=st[i];

write(st2,' ');

end;

end.

2 задача

program proga2;

var st,st2:string;

i,a:Integer;

begin

writeln('Введите возраст');

readln(a);

if a>120 then

writeln('Неверные данные');

if a=1 then

writeln(a,' год');

if (a>1) and (a<5) then</p>

writeln(a,' года');

if((a mod 10 = 1) and (a div 10 <> 0 or 11 )) then writeln(a,' год');

if (a>=5) and (a mod 10 <> 2 or 3 or 4)and (a div 10 <> 10) then

writeln(a,' лет');

if (a<=5) and (a mod 10 = 2 or 3 or 4)and (a div 10 = 10) then writeln(a,' года ');</p>

if(a>104) and (a<110)then writeln(a,' лет'); </p>

end.