Паскаль

[flame-93]

Решите две задачи. 1. Найти сколько слагаемых необходимо, чтобы сумма 3+7+11+15+… оказалась больше 100.
2. С клавиатуры вводятся целые числа. Определить количество положительных, как только их сумма превысит 10.

[TorrentTor]

Решить! хе

[viron]

Решите две задачи. 1. Найти сколько слагаемых необходимо, чтобы сумма 3+7+11+15+… оказалась больше 100.

Procedure N();
var
  i: Integer;
  summ: Integer;
begin
  i:= 1;  // 3  7  11  15
  summ:= 3;

  while summ <= 100 do
  begin
    summ:= summ + 4;
    i:= i + 1;
  end;

  Writeln('Количество слагаемых = ', i);

  Readln;
end;

[viron]

2. С клавиатуры вводятся целые числа. Определить количество положительных, как только их сумма превысит 10.

Procedure M();
var
  i: Integer;
  summ: Integer;
  number: Integer;
begin
  i:= 0;    	// Кол-во положительных
  summ:= 0; 	// Сумма положительных чисел

  while summ <= 10 do
  begin
    Write('Введите целое числоî: ');
    Readln(number);

    if number > 0 then
    begin
      summ:= summ + number;
      i:= i + 1;
    end;
  end;

  Writeln('Сумма положительных чисел = ', summ);
  Writeln('Количество положительных чисел = ', i);

  Readln;
end;

[Mad_Cat]

1. Найти сколько слагаемых необходимо, чтобы сумма 3+7+11+15+… оказалась больше 100

var
  i: Integer;
  summ: Integer;
  SL:integer;
begin
  i:= 0;  // 3  7  11  15
  summ:= 0;
  Sl:=3;
  while summ <= 100 do
  begin
   i:= i + 1;
   summ:= summ +sl;
   sl:=sl+4;
  end;
  Writeln('Количество слагаемых = ', i);
  Readln;
end.