Информатика, опубликовано 2018-08-22 21:21:52 by Гость

Вкладені цикли (Pascal) В текстовому файлі change.txt зберігається натуральне число N (N менше 2000000). Поміняти місцями першу та останню цифри числа.

Ответ оставил Гость

Var N,P:integer; f:text;
Begin
Assign(f,change.txt);
Reset(f);
Readln(f,N);
P:=1;
while P*10 N:=N div P + (N mod P div 10) * 10 + (N mod 10) * P;
Writeln(N);
Close(f);
End.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.