В числовой последовательности вводимость клавиатуры, вычислить количество чисел кратных 6
Answers & Comments
bina17
Program vv; var n,a,i,s:integer; begin write('введите количество элементов последовательности '); read(n); s:=0; for i:=1 to n do begin if a mod 6=0 then s:=s+1; end ; write('сумма равна',s); end.
Answers & Comments
var n,a,i,s:integer;
begin
write('введите количество элементов последовательности ');
read(n);
s:=0;
for i:=1 to n do
begin
if a mod 6=0 then s:=s+1;
end ;
write('сумма равна',s);
end.