Решаем задачи Абрамян на Паскале. Series31

Series31. Даны целые числа $$K$$, $$N$$, а также $$K$$ наборов целых чисел по $$N$$ элемен тов в каждом наборе. Найти количество наборов, содержащих число 2. Если таких наборов нет, то вывести 0.

Решение:

program Series29;
var
  K,N,Ni,Ki,S,A:Integer;
  Check: Boolean;
begin

 Write('N: ');
 Readln(N);

 Write('K: ');
 Readln(K);

 S:=0;
 for Ki:=1 to K do
  begin
   check:=FALSE;
   for Ni:=1 to N do
    begin
     write('Введите ',Ni,' число из ',Ki ,' набора :');
     Readln(A);
     if A=2 then check:=TRUE;
    end;
   if check then S:=S+1;
  end;
 writeln(S);
 readln;
end.

program Series29;

var

K,N,Ni,Ki,S,A:Integer;

Check: Boolean;

begin

Write('N: ');

Readln(N);

Write('K: ');

Readln(K);

S:=0;

for Ki:=1 to K do

begin

check:=FALSE;

for Ni:=1 to N do

begin

write('Введите ',Ni,' число из ',Ki ,' набора :');

Readln(A);

if A=2 then check:=TRUE;

end;

if check then S:=S+1;

end;

writeln(S);

readln;

end.

Другие задачи из раздела Series можно посмотреть здесь.

Комментарии 1

//pascalABC.net
begin
  var count:=0;
  write('введите кол-во наборов: ');
  var k:=ReadlnInteger('k =');
  write('введите кол-во элементов в наборах: ');
  var n:=ReadlnInteger('n =');
  for var i:=1 to k do
  begin
    writeln('введите ',i,' набор из ',n,' элементов');
    var a:=ArrGen(n,t->ReadInteger);//или a:=ReadArrInteger(n);
    var b:=a.Contains(2);
    if b then inc(count);
  end;
  print('кол-во наборов, содержащих число 2: =',count);
  readln;readln;
end.

//pascalABC.net

begin

var count:=0;

write('введите кол-во наборов: ');

var k:=ReadlnInteger('k =');

write('введите кол-во элементов в наборах: ');

var n:=ReadlnInteger('n =');

for var i:=1 to k do

begin

writeln('введите ',i,' набор из ',n,' элементов');

var a:=ArrGen(n,t->ReadInteger);//или a:=ReadArrInteger(n);

var b:=a.Contains(2);

if b then inc(count);

end;

print('кол-во наборов, содержащих число 2: =',count);

readln;readln;

end.

Ответить

Решаем задачи Абрамян на Паскале. Series31

Комментарии:

Комментарии 1

Добавить комментарий Отменить ответ