Дан массив из n элементов Определить сколько в нем двузначных элементов кратных 5.
Ответы на вопрос
Ответил Desmos74
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;
Ответил Вася81112
0
В гамбасе(конссольное прилож) знаешь как?
Ответил Desmos74
0
не
Ответил kage1998
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 года назад
Математика,
2 года назад
Математика,
10 лет назад
Литература,
10 лет назад
Алгебра,
10 лет назад