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

Question

Информатика

Долгион

24 мая, 09:24

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

+3

Ответы (2)

Знаете ответ на вопрос?

Гильда · Answer 1

var a:integer;

begin

a:=1234;

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

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

end.

Иреней · Answer 2

var a, b1, b2:integer;

begin

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

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

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

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

end.