Дано естественно число. Найти творение 2 и 3 числа

//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write('Введите число: ');
var a:=ReadInteger().ToString();
write('творенье 2 и 3 цифры: ',a[2].ToDigit()*a[3].ToDigit());
end.

Koljan Averuk 2019-04-08 07:18:11

А можно понятней написать? Начиная с var, просто я так не могу понять что к чему. И что это такое a[2].ToDigit()*a[3].ToDigit()?

Vladislav Zhirarov 2019-04-08 07:19:46

вводим естественное число, преобразуем в строчку, берем 2 и 3 знаки из получившейся строчки(это есть 2 и 3 числа введенного числа) потом переводим эти знаки в числа и перемножаем

Ромка Киктенко 2019-04-08 07:24:17

Проще разговаривая, разница в наших программках только в выборе стороны отсчета, я считал номера с права, он с лева. Вы не указали язык программирования - ваша неувязка.

Камилла · Answer 2 · 2019-04-08 07:14:29+3:00

// 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.

О проекте

Дано естественно число. Найти творение 2 и 3 числа

Добро пожаловать!