Вариант 2. Дано трёхзначное натуральное число. Получить другое натуральное число, в котором порядок цифр изменён на противоположный. Как будет выглядеть эта программа на языке паскаль?
Ответы
Ответ дал:
0
Program NAMEPROGRAM;
Замени NAMEPROGRAM на имя программы только.
Замени NAMEPROGRAM на имя программы только.
Ответ дал:
0
еще раз, ибо в комменты норм кидает код.
Ответ дал:
0
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.
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.
Ответ дал:
0
Большое спасибо !
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад