Регистрация
askerovaa1
01.08.2020 16:20
Информатика
Есть ответ 👍

Втрехзначном натуральном числе заменить кол-во десятков на последнюю цифру в сумме сотен и единиц.(решение в паскаль)

297
344
Посмотреть ответы 1

Ответы на вопрос:

Vera4441
Vera4441
4,5(19 оценок)
Var a,b: integer; c: string; begin read(a,b); while (a< > 0) do begin if a mod 10 < > b then c+=inttostr(a mod 10); a: =a div 10; end; for a: =length(c) downto 1 do write(c[a]); end.

Популярно: Информатика