Дано четырехзначное число. Изменить его так чтобы количество десятков стало равно нулю (написать программу паскаль)

Question

Информатика

Аурил

1 марта, 14:43

Дано четырехзначное число. Изменить его так чтобы количество десятков стало равно нулю (написать программу паскаль)

+5

Ответы (2)

Знаете ответ?

Гусе · Answer 1

var a, b1, b2:integer;

begin

readln (a) ; / / считываем число

b1:=a mod 10; / / единицы

b2: = (a - b1) mod 100; / / десятки

write (a-b2) ; / / число минус десятки

end.

Аполиндрия · Answer 2

var a:integer;

begin

a:=1234;

a: = (a div 100) * 100 + a mod 10;

Write ('a = ', a) / / тут выведет: a = 1204

end.