Question

Ребята нужна помощь. Даю 25баллов надо составить на языке паскаля программу для ,,перехода улицы на свет светофора,, и еще 1 программу ,,заварить заварку,, буду очень благодарен за помощь

Answer 1

Program ggg;var s: integer;beginwriteln('какой цвет  горит на светофоре?');readln(s);if (s=1) or (s=2) thenwriteln('стой на месте');if s=3 thenwriteln('можешь идти')
end.

Answer 2

К сожалению, я не могу выполнить ваш запрос напрямую, поскольку я не имею возможности создавать программы на языке Паскаль. Однако я могу предоставить общую структуру для этих программ, которые вы можете использовать для их написания.

Программа "Переход улицы на свет светофора" может выглядеть следующим образом:

arduinoCopy code
program streetCrossing;
uses crt;

var
  lightColor: char;

begin
  writeln('Ждем зеленый свет...');
  repeat
    lightColor := readkey;
  until lightColor = 'g';
  writeln('Шагаем через улицу!');
end.

Программа "Заварить заварку" может выглядеть так:

scssCopy code
program makeTea;
uses crt;

var
  waterTemp: integer;

begin
  writeln('Налейте воду в чайник и поставьте на огонь.');
  repeat
    write('Введите температуру воды: ');
    readln(waterTemp);
  until waterTemp >= 90;
  writeln('Вода нагрета до нужной температуры, завариваем чай!');
end.

Обе программы используют модуль crt, который предоставляет функции для работы с консольным интерфейсом. Они также используют переменные для хранения значений ввода пользователя и для проверки условий в циклах.

Однако, при написании реальных программ, необходимо будет учитывать более подробные требования к программе и использовать соответствующие конструкции языка Паскаль.