Напишите программу, которая меняет местами первую и последнюю цифру натурального трехзначного числа. (ABC Pascal)
Ответы на вопрос
Ответил dah02
0
var
a,chislo,t:longint;
c,nov,posl:integer;
begin
readln(a);
posl:=a mod 10;
chislo:=a;
t:=1;
repeat
a:=a div 10;
t:=t*10;
until a<10;
chislo:=chislo mod t;
chislo:=posl*t+chislo-posl+a;
writeln(chislo);
readln;
end.
a,chislo,t:longint;
c,nov,posl:integer;
begin
readln(a);
posl:=a mod 10;
chislo:=a;
t:=1;
repeat
a:=a div 10;
t:=t*10;
until a<10;
chislo:=chislo mod t;
chislo:=posl*t+chislo-posl+a;
writeln(chislo);
readln;
end.
Ответил D1NA1D
0
мы не изучали (repeat, until) так что задача в моем случае решается не так... (((
Новые вопросы