Вариант 2. Дано трёхзначное натуральное число. Получить другое натуральное число, в...

Question

Вариант 2. Дано трёхзначное натуральное число. Получить другое натуральное число, в котором порядок цифр изменён на противоположный. Как будет выглядеть эта программа на языке паскаль?

Answer 1

Program NAMEPROGRAM;
Замени NAMEPROGRAM на имя программы только.

Comments

еще раз, ибо в комменты норм кидает код.

---

program rok_ork_kok;
var x:integer;
s:string;
c1,c2,c3:char;
begin
writeln('введите число');
readln(s);
if length(s)=3 then begin
for x:=0 to 3 do
begin
c1:=s[1];
c2:=s[2];
c3:=s[3];
end;
end
else writeln('неверное число');
writeln('первоначальный вид '+c1+c2+c3+' полученный вид '+c3+c2+c1);
end.

---

Большое спасибо !