Предмет: Информатика,
автор: ctalentMADx50
Дано масив А[1..n]. Скласти програму пошуку кількості елементів масиву які кратні 3 і некратні 5.
Ответы
Автор ответа:
0
const N = 5;
var a:array[1..N] of integer;
i, s: integer;
begin
s:=0;
for i:=1 to N do begin
readln(a[i]);
If (a[i] mod 3 = 0) and (a[i] mod 5 <> 0) then
s:=s+1;
end;
writeln(s);
end.
var a:array[1..N] of integer;
i, s: integer;
begin
s:=0;
for i:=1 to N do begin
readln(a[i]);
If (a[i] mod 3 = 0) and (a[i] mod 5 <> 0) then
s:=s+1;
end;
writeln(s);
end.
Автор ответа:
0
const n=10;var a:array[1..n]of integer;i,k:integer;begink:=0;for i:=1 to n do begin read(a[i]);if ((a[i] mod 3=0) and (a[i] mod 5 >0)) then k:=k+1;end;write('таких чисел:',k);end.
Автор ответа:
0
вот)
Автор ответа:
0
и еще 1 енд забыл)
Автор ответа:
0
const n=10;
var a:array[1..n]of integer;
i,k:integer;
begin
k:=0;
for i:=1 to n do begin
read(a[i]);
if ((a[i] mod 3=0) and (a[i] mod 5 >0)) then k:=k+1;end;
write('таких чисел:',k);
end.
var a:array[1..n]of integer;
i,k:integer;
begin
k:=0;
for i:=1 to n do begin
read(a[i]);
if ((a[i] mod 3=0) and (a[i] mod 5 >0)) then k:=k+1;end;
write('таких чисел:',k);
end.
Автор ответа:
0
лан не бида =)
Автор ответа:
0
хах, действительно
Интересные вопросы
Предмет: Математика,
автор: shazzi
Предмет: Геометрия,
автор: gmirenkokarolina
Предмет: Экономика,
автор: tafeetalpa1974
Предмет: Геометрия,
автор: adidas13589cfffvvv
Предмет: Геометрия,
автор: Надина15