Определить произведение первой и последней цифры числа,вводимого с клавиатуры
10-11 класс
|
var
A,p:integer;
begin
Write('Введиnе число:');
Readln(A);
p:= A mod 10;
while A > 9 do
A:=A div 10;
p:=p*A;
WriteLn(p);
Readln;
end.
Другие вопросы из категории
программу, реализующую алгоритм работы кассира, выдающего покупателю сдачу
сумма «S» наименьшим кол-вом банкнот по 1000 , 500, 100, 50, 10 рублей.
Срочно, помогите!
значением Х (Х-задаётся пользователем).
Найти разновидность z между большим и меньшим из них
Читайте также
программу меняющихся местами первую и последнюю цифру.
2) Заданы действительные числа a , b , c и d . Написать программу нахождения полусуммы наименьшего и наибольшего из них.
3) Написать программу для вычисления суммы цифр числа , введенного с клавиатуры
Помогите прошу
0,если их несколько то номер крайней правой.
2) Дано натуральное число. Определить сумму m его последних цифр
3)Дано натуральное число. определить его максимальную цифру.
4) дано предложение. заменить в нем все вхождения под строку str1 на подстроку str2
5) последовательность чисел Фибоначчи образуется так: первый и второй член последовательности равен 1, каждый следующий равен сумме двух предыдущих(1,1,2,3,5,,8,12..) Дано натуральное число n>=3 : а) найти k-й член последовательности б)получить первые n членов последовательности в)для заданного n определить верно ли,что сумма первых n членов есть четное число