Ответы
Ответ дал:
0
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var n:=ReadInteger('введите натуральное число:');
write('в числе ',n.ToString.Where(x->x='7').Count,' цифр 7');
end.
//Версия 3.3, сборка 1634
begin
var n:=ReadInteger('введите натуральное число:');
write('в числе ',n.ToString.Where(x->x='7').Count,' цифр 7');
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
3 года назад
3 года назад
8 лет назад