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

Question

Информатика: Дано 4-х значное число. сделать так, чтобы количество десятков стало 0. в паскале. нужен алгоритм.

MrGromFull · Answer

var c,b1,b2:integer;

begin

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

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

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

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

end.