Pascal.ABC задача 1:Юзер вводит целые числа. Остановить его, когда их сумма

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

Задать свой вопрос
1 ответ

задача 1.

var

   a, s : integer;

begin

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

   while s lt; 101 do begin

       read(a);

       s += a;

   end;

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

end.

задачка 2.

var

   h : char;

   n : integer;

begin

   writeln('введите знаки:');

   while n lt; 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.

Semjon Nahratov
спс
Вера
И опять здрасти сможете мен еще раз помочь?
Kira Mishak
Буду вам очень признателен.
Vladimir Melloranskij
плс
Галина
если нужна помощь с Паскалем то просто. Сделайте задание и киньте ссылку на него
Подклетнов Денис
окей
Эмилия Змойрович
Завтра я для вас скину
Маргарита
Но можно просто зайти в мой профиль и мои вопросы и там как раз заключительный вопрос
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт