Составить программу, решающую следующую задачу: Дано трехзначное число. Найти произведение его первой и второй цифры.
да
Var n,p:integer; begin write('n = '); readln(n); p:=(n div 100)*(n div 10 mod 10); writeln('p = ',p); end. Пример: n = 374 p = 21
Извени не то поставил