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

Series35. Дано целое число $$K$$, а также $$K$$ наборов ненулевых целых чисел. Признаком завершения каждого набора является число 0. Для каждого набора вывести количество его элементов. Вывести также общее количество элементов во всех наборах.

Решение:

program series35;
uses
  SysUtils;
var
  K,Ki,A,Count,CountK:Integer;
begin
 Write('K: ');
 Readln(K);
 for Ki:=1 to K do
  begin
    CountK:=0;
    repeat
     CountK:=CountK+1;
     write('Введите ',CountK,' число из ',Ki ,' набора:');
     Readln(A);
    until A=0;
    CountK:=CountK-1;
    Writeln(CountK);
    Count:=Count+CountK;
  end;
   Writeln(Count);
   Readln;
end.

program series35;

uses

SysUtils;

var

K,Ki,A,Count,CountK:Integer;

begin

Write('K: ');

Readln(K);

for Ki:=1 to K do

begin

CountK:=0;

repeat

CountK:=CountK+1;

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

Readln(A);

until A=0;

CountK:=CountK-1;

Writeln(CountK);

Count:=Count+CountK;

end;

Writeln(Count);

Readln;

end.

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

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

begin
  var count:=0;
  write('введите кол-во наборов: ');
  var k:=ReadlnInteger('k =');
  for var i:=1 to k do
  begin
    writeln('введите ',i,' набор:');
    var a:=ReadSeqIntegerWhile(t->t<>0).ToArray;
    println('кол-во эл-ов в',i,'наборе',a.Count);
    count:=count+a.Count
  end;
  print('кол-во элементов во всех наборах =',count);
  readln;readln;
end.

begin

var count:=0;

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

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

for var i:=1 to k do

begin

writeln('введите ',i,' набор:');

var a:=ReadSeqIntegerWhile(t->t<>0).ToArray;

println('кол-во эл-ов в',i,'наборе',a.Count);

count:=count+a.Count

end;

print('кол-во элементов во всех наборах =',count);

readln;readln;

end.

Ответить

//автоввод, pascalABC.net
begin
  var count:=0;
  write('введите кол-во наборов: ');
  var k:=ReadlnInteger('k =');
  for var i:=1 to k do
  begin
    var a:=ArrRandomInteger(20,0,10); a.Println;
    println('кол-во эл-ов в',i,'наборе',a.TakeWhile(t->t<>0).Count);
    count:=count+a.TakeWhile(t->t<>0).Count
  end;
  print('кол-во элементов во всех наборах =',count);
  readln;
end.

//автоввод, pascalABC.net

begin

var count:=0;

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

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

for var i:=1 to k do

begin

var a:=ArrRandomInteger(20,0,10); a.Println;

println('кол-во эл-ов в',i,'наборе',a.TakeWhile(t->t<>0).Count);

count:=count+a.TakeWhile(t->t<>0).Count

end;

print('кол-во элементов во всех наборах =',count);

readln;

end.

Ответить

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

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

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

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