Question

1. С клавиатуры вводятся числа, "0" - конец ввода. Сколько положительных чисел ввели. 2. С клавиатуры вводятся двухзначные числа, до тех пор пока их сумма не превысит 200. Сколько ввели чисел кратных 9? Решить через паскаль

Answer 1

Ответ:

1)

Begin

Count:=0;

repeat

Read (ch);

If ch> 0 then inc(count);

Until ch<>0

Write(count);

End.

2)

Begin

Sum:=0;

Count:=0;

repeat

Read (ch);

Sum:=sum+ch;

If ch mod 9=0 then inc(count);

Until sum<200

Write(count);

End.

Answer 2

Для решения задачи через Pascal (PascalABC.NET), следуйте инструкциям ниже:

1. Подсчет положительных чисел:

pascalCopy code
Program CountPositiveNumbers;
var
  num, countPositives: integer;
begin
  countPositives := 0;
  writeln('Введите числа (для завершения введите "0"):');
  repeat
    readln(num);
    if num > 0 then
      countPositives := countPositives + 1;
  until num = 0;

  writeln('Количество положительных чисел: ', countPositives);
end.

2. Подсчет чисел, кратных 9, до превышения суммы 200:

pascalCopy code
Program CountMultiplesOfNine;
var
  num1, num2, sum, countMultiplesOfNine: integer;
begin
  countMultiplesOfNine := 0;
  sum := 0;

  writeln('Введите двухзначные числа (до суммы > 200):');
  repeat
    readln(num1);
    if (num1 >= 10) and (num1 <= 99) then // Проверка на двухзначность числа
    begin
      sum := sum + num1;
      if (sum <= 200) and (num1 mod 9 = 0) then
        countMultiplesOfNine := countMultiplesOfNine + 1;
    end;
  until sum > 200;

  writeln('Количество чисел, кратных 9: ', countMultiplesOfNine);
end.

Скопируйте каждый из кодов выше в PascalABC.NET (https://pascalabc.net/), чтобы выполнить программы и проверить результаты ввода чисел.