Предмет: Информатика,
автор: Вася81112
Дан массив из n элементов Определить сколько в нем двузначных элементов кратных 5.
Ответы
Автор ответа:
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.
Похожие вопросы
Предмет: Обществознание,
автор: gordukovep
Предмет: Қазақ тiлi,
автор: dtemirbaeva82
Предмет: Қазақ тiлi,
автор: mereizhaksylykova200
Предмет: Биология,
автор: f1ynn
Предмет: Алгебра,
автор: Аноним