Дано целое положительное трехзначное число.Напишите программу, позволяющую определить число, полученное выписыванием в обратном порядке цифр заданного трехзначного числа. Например: 123->321.
Ответы
Ответ дал:
1
var a,b:integer;
d:string;
begin
writeln('введите число');
readln(b);
Str (b, d);
for a:=length(d) downto 1 do begin
write(d[a]);
end;
writeln('');
end.
d:string;
begin
writeln('введите число');
readln(b);
Str (b, d);
for a:=length(d) downto 1 do begin
write(d[a]);
end;
writeln('');
end.
антагонист:
ну это через строковые массиввы
через числа там по другому немного
var a,b,c:integer;
begin
writeln('vvedi ');
readln(a);
while a<>0 do begin
b:=a mod 10;
a:=a div 10;
write(b);
end;
writeln('');
end.
begin
writeln('vvedi ');
readln(a);
while a<>0 do begin
b:=a mod 10;
a:=a div 10;
write(b);
end;
writeln('');
end.
это через числа
Вас заинтересует
2 года назад
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад