Дано 4-х значное число. Сделать так, чтобы количество десятков стало 0.

Задача в Паскале. Нужен алгоритм.

Question

Информатика

Вентура

13 ноября, 02:15

Дано 4-х значное число. Сделать так, чтобы количество десятков стало 0.

Задача в Паскале. Нужен алгоритм.

+3

Ответы (1)

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

Хашир · Answer 1

var c, b1, b2:integer;

begin

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

b1:=c mod 10; / / Единицы

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

write (c-b2) ; / / Вычитаем из числа десятки

end.

Дано 4-х значное число. Сделать так, чтобы количество десятков стало 0.Задача в Паскале. Нужен алгоритм.

Дано 4-х значное число. Сделать так, чтобы количество десятков стало 0.

Задача в Паскале. Нужен алгоритм.