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

Series14. Дано целое число $$K$$ и набор ненулевых целых чисел; признак его завершения — число 0. Вывести количество чисел в наборе, меньших $$K$$.

Решение:

program Series14;
var
  i,R,K:Longint;
begin
write('Введите K : ');
readln(K);
R:=1;
i:=0;
  while(R<>0) do
   begin
     write('Введите число из набора: ');
     Readln(R);
     if R<K then i:=i+1;
   end;
  i:=i-1;
  Writeln(i);
  readln;
end.

program Series14;

var

i,R,K:Longint;

begin

write('Введите K : ');

readln(K);

R:=1;

i:=0;

while(R<>0) do

begin

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

Readln(R);

if R<K then i:=i+1;

end;

i:=i-1;

Writeln(i);

readln;

end.

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

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

Почти так же.

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.

Ответить

Кирилл

25.12.2014 в 23:46

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

Ответить
- Anton
  
  26.12.2014 в 10:48
  
  Поправил
  
  Ответить

//ручной ввод, 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.

Ответить

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

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

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

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