Дано натурально число. определить произведение 2 и 3 цифры

Alina29052006 Alina29052006    2   15.09.2019 14:20    0

Ответы
tim27012003 tim27012003  07.10.2020 17:27
//PascalABC.NET
//Версия 3.3, сборка 1611 
begin
write('Введите число: ');
var a:=ReadInteger().ToString();
write('произведение 2 и 3 цифры: ',a[2].ToDigit()*a[3].ToDigit());
end.
ПОКАЗАТЬ ОТВЕТЫ
Vitadem1 Vitadem1  07.10.2020 17:27
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
var n:=ReadInteger('n =') div 10;
Writeln(n mod 10 * (n div 10 mod 10));
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика