Ballathis
5 год назад
Задание на DelphiДано натуральное число. Определить: его вторую цифру
ОТВЕТЫ
Lidiya
Oct 24, 2020
{$APPTYPE CONSOLE}
Var A:integer;
begin
Write('Введите целое число: ');ReadLn(A);
Write('Вторая цифра этого числа: ',(Abs(A) div 10) mod 10);
ReadLn
end.
Var A:integer;
begin
Write('Введите целое число: ');ReadLn(A);
Write('Вторая цифра этого числа: ',(Abs(A) div 10) mod 10);
ReadLn
end.
283
Смежные вопросы:
