Предмет:
ИнформатикаАвтор:
chewyptxnbegin
var n:=ReadlnString('Введите натуральное число:');
var r:BigInteger;
if not BigInteger.TryParse(n,r) then
Print('Некорректная запись')
else
begin
var k5:=n.Where(c->c='5').Count;
var k1:=n.Where(c->c='1').Count;
if k1>0 then Print(k5/k1)
end
end.
ПримерВведите натуральное число: 23476587043021143411395684657323634254554
1.5
Автор:
jonathonrnwjДобавить свой ответ
Предмет:
ИнформатикаАвтор:
stacymeadowsОтветов:
Смотреть
Предмет:
МатематикаАвтор:
Álvaro83Ответов:
Смотреть
Предмет:
Английский языкАвтор:
diesel0dvrОтветов:
Смотреть
Предмет:
Русский языкАвтор:
agustín15Ответов:
Смотреть