Одно из самых простых решений:
<span>x = int(input())
d = int(input())
print(str(x).count(str(d)))
Тестовое решение:
5456754585
5
5
</span>
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadArrReal(4);
Writeln('Max=',a.Max,', min',a.Min)
end.
<u>Пример:</u>
-45.4 18 0 4.17
Max=18, min-45.4
решение в среде Паскаль:
Var a:array[1..10] of Integer; i,s,m: integer; f,t:real;
begin
s:=0;
writeln('write marks');
For i:=1 to 10 do begin
readln(a[i]);
If i>1 then begin
If a[i-1]=2 then begin
If a[i]<>2 then begin s:=s-2; m:=m-1; end;end;end;
s:=s+a[i];
m:=m+1;
end;
f:=s/m;
t:=Int(f);
Writeln('His or her mark is ', t:2:0);
readln;
end.
Правельный ответ - г. Так как все остальные являются антивирусными программами.
Однажды начали спорить холодильник, пылесос и компьютер, кто же полезнее и нужнее. У каждого были свои аргументы и доказательства.
Холодильник вышел вперед и начал говорить:
-Без меня бы человек не смог хранить еду и она бы быстро портилась.
-А без меня,- начал пылесос,- не было бы чистоты в доме.
-А без меня,- вскричал компьютер,- люди не могли бы производить сложные вычисления и дети бы не смогли делать домашнее задание.
Если бы в этот момент не подошел человек, то этот спор бы затянулся надолго.
-Вы мне очень нужные и изобретая вас я не хотел кого-то выделять. Вы важны, только каждый в своей сфере