Question

ПАСКАЛЬ! ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ!!!!!!!!!!

Answer 1

var a,c:integer;begin
writeln('Введите число а');
readln(a);c:= a div 100;
writeln('c = ', c);
a:= a mod 100 + 2*(a mod 10);
writeln('a = ', a);
a:= 10 * a + c;writeln('a = ', a);
end.
{Введите число а
937 c = 9
a = 51
a = 519}

Answer 2

937 c = 9 .. простите, а 937 это что?

Answer 3

937 расчет по частям, поэтому и вывод каждой строчки

Answer 4

Спасибо)

Answer 5

например, число 1950
Тогда
с=19
a=50+2*0=50
a=50*10+19=519
Ответ 1950