Var A, I, O: Integer;
Begin
ReadLn(A);
For I:=100 to 999 do Begin
If I div 100 = A Then
O:=O+1;
if (I div 10)-(I div 100) = A then
O:=O+1;
If I - ((I div 10)*10) = A Then
O:=O+1;
End;
WriteLn(O);
End.
Алг
нач
вещ p, s, v, d
вывод "Процентная вставка: "
ввод p
вывод "Величина вклада: "
ввод v
вывод "Cрок вклада: "
ввод s
d := ( v * p/ 100)/( 365* s)
вывод "Доход равен: ", d
<span>кон
P.S. КуМИР не обычен, он убог...</span>
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var a:=ReadInteger('введите число a=').ToString();
writeln('сумма цифр: ',a[1].ToDigit()+a[2].ToDigit()+a[3].ToDigit()+a[4].ToDigit());
write('произведение: ',a[1].ToDigit()*a[2].ToDigit()*a[3].ToDigit()*a[4].ToDigit());
end.
1. 2.
2. 2.
3. 34.
4. 142(10) = <span>10001110(2). Значащих нулей: 4.
</span>