Ответы
Ответ дал:
0
На Паскале:
k:=0;
for i:=1 to n do
if (array[i] < 100) and (array[i]>9) and (array[i] mod 5 = 0) then k:= k+1;
k:=0;
for i:=1 to n do
if (array[i] < 100) and (array[i]>9) and (array[i] mod 5 = 0) then k:= k+1;
Ответ дал:
0
В гамбасе(конссольное прилож) знаешь как?
Ответ дал:
0
не
Ответ дал:
0
program gt;
var n,a,p,k,q,i:integer;
begin
read(n);
q:=0;
for i:=1 to n do
begin
read(A);
p:=a;
if(a mod 5=0)then begin
k:=0;
while a>0 do
begin
a:=a div 10;
k:=k+1;
end;
if(k=2)then q:=q+1;
end;
end;
writeln(q);
end.
var n,a,p,k,q,i:integer;
begin
read(n);
q:=0;
for i:=1 to n do
begin
read(A);
p:=a;
if(a mod 5=0)then begin
k:=0;
while a>0 do
begin
a:=a div 10;
k:=k+1;
end;
if(k=2)then q:=q+1;
end;
end;
writeln(q);
end.
Вас заинтересует
2 года назад
8 лет назад
8 лет назад
10 лет назад
10 лет назад