Question

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

Answer 1

var c,b1,b2:integer;

begin

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

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

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

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

end.