Дано 4-х значное число. сделать так, чтобы количество - вопрос №926299240 от Роннилав 04.01.2022 07:59

Question

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

Роннилав · Answer

var c,b1,b2:integer;

begin

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

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

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

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

end.