Комментарии: Решаем задачи Абрамян на Паскале. Series14

Автор: Bronislav

Bronislav — Wed, 21 Feb 2018 17:52:44 +0000

//ручной ввод, pascalABC.net
begin
  var k:=ReadlnInteger('k =');
  writeln('введите числа:');
  write('количество чисел меньших k: ',ReadSeqIntegerWhile(t->t<>0).Where(t->t<k).Count);
  readln;readln;
end.

//ручной ввод, pascalABC.net

begin

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

writeln('введите числа:');

write('количество чисел меньших k: ',ReadSeqIntegerWhile(t->t<>0).Where(t->t<k).Count);

readln;readln;

end.

//ввод из массива, pascalABC.net
begin
  var k:=5;
  var a:=ArrRandomInteger(20,0,10);a.Println;
  write('количество чисел меньших k: ',a.TakeWhile(t->t<>0).Where(t->t<k).Count);
  readln;
end.

//ввод из массива, pascalABC.net

begin

var k:=5;

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

write('количество чисел меньших k: ',a.TakeWhile(t->t<>0).Where(t->t<k).Count);

readln;

end.

Автор: Anton

Anton — Fri, 26 Dec 2014 06:48:29 +0000

В ответ на Кирилл. Поправил

Автор: Кирилл

Кирилл — Thu, 25 Dec 2014 19:46:40 +0000

В ответ на Кирилл. неравно всё равно не хочет писать (a не равно 0 ) в двух местах

Автор: Кирилл

Кирилл — Thu, 25 Dec 2014 19:45:29 +0000

Почти так же.

uses PT4;
var i,k,a:integer;
begin
  Task('Series14');
read(k);
a:=1;
while (a <> 0) do
  begin
    read(a);
    if (a < k) and (a <> 0) then i:= i + 1;
  end;
  write(i);
end.

uses PT4;

var i,k,a:integer;

begin

Task('Series14');

read(k);

a:=1;

while (a <> 0) do

begin

read(a);

if (a < k) and (a <> 0) then i:= i + 1;

end;

write(i);

end.