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

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

Question

Информатика

Алпан

11 марта, 23:12

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

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

+2

Ответы (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.

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