Question

Pascal.ABC задача 1: Пользователь вводит целые числа. Остановить его, когда их сумма становится больше 100 Задача 2: Пользователь вводит символы. Остановить его, когда он введет 5 раз символ F. Хранятся символы в переменной типа char. Задача 3: Пользователь вводит число от 1 до 4. В зависимости от цифры нарисовать треугольник из звездочек. например 1: *** ** * 2: *** ** * 3: * ** *** 4: * ** *** и т.д.

Answer 1

задача 1.

var

   a, s : integer;

begin

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

   while s < 101 do begin

       read(a);

       s += a;

   end;

   writeln('Стоп! Сумма чисел больше 100, s=', s);

end.

задача 2.

var

   h : char;

   n : integer;

begin

   writeln('введите символы:');

   while n < 5 do begin

       read(h);

       if h = 'F' then n += 1;

   end;

   writeln('Стоп! Символ F был введен 5 раз')

end.

задача 3.

var

   a : integer;

begin

   write('Введите число от 1 до 4 : ');

   readln(a);

   if (a = 1) or (a = 2) then begin

       for var i := 3 downto 1 do begin

           for var j := 1 to i do write('*');

           writeln;

       end;

   end

   else if (a = 3) or (a = 4) then begin

       for var i := 1 to 3 do begin

           for var j := 1 to i do write('*');

           writeln;

       end;

   end

   else writeln('вы ввели не правильное число :(');

end.

Answer 2

Для решения каждой из этих задач, давайте разработаем программы на языке Pascal ABC.

Задача 1: Пользователь вводит целые числа. Остановить его, когда их сумма становится больше 100.

pascalCopy code
program Task1;
var
  userInput, sum: integer;
begin
  sum := 0;

  repeat
    Write('Введите целое число: ');
    Readln(userInput);

    sum := sum + userInput;
  until sum > 100;

  Writeln('Сумма превысила 100. Программа завершена.');
end.

Задача 2: Пользователь вводит символы. Остановить его, когда он введет 5 раз символ 'F'.

pascalCopy code
program Task2;
var
  userInput: char;
  countF: integer;
begin
  countF := 0;

  repeat
    Write('Введите символ: ');
    Readln(userInput);

    if userInput = 'F' then
      countF := countF + 1;
  until countF = 5;

  Writeln('Вы ввели символ F 5 раз. Программа завершена.');
end.

Задача 3: Пользователь вводит число от 1 до 4. В зависимости от цифры нарисовать треугольник из звездочек.

pascalCopy code
program Task3;
var
  userInput, i, j: integer;
begin
  Write('Введите число от 1 до 4: ');
  Readln(userInput);

  case userInput of
    1: 
      begin
        for i := 1 to 3 do
        begin
          for j := 1 to i do
            Write('*');
          Writeln;
        end;
      end;

    2:
      begin
        for i := 3 downto 1 do
        begin
          for j := 1 to i do
            Write('*');
          Writeln;
        end;
      end;

    3:
      begin
        for i := 1 to 3 do
        begin
          for j := 3 downto i do
            Write('*');
          Writeln;
        end;
      end;

    4:
      begin
        for i := 3 downto 1 do
        begin
          for j := 3 downto i do
            Write('*');
          Writeln;
        end;
      end;

    else
      Writeln('Некорректный ввод. Введите число от 1 до 4.');
  end;
end.

Определенные программы позволят решить поставленные задачи. Надеюсь, это поможет! Если у вас есть еще вопросы или нужна дополнительная помощь, не стесняйтесь спрашивать.