Question

Решать с помощью Паскаль 1.Дано трехзначное число. Определите есть ли в этом числе одинаковые цифры. 2. Работа светофора для пешеходов запрограммирована следующим образом: начиная с начала каждого часа, в течение трех минут горит зеленый сигнал, затем в течении двух минут — красный, в течении трех минут — опять зеленый и т.д. Дано вещественное число t, означающее время в минутах, прошедшее с начала очередного часа. Определить, сигнал какого цвета горит для пешеходов в этот момент. Помогите, плизз) решите хотя бы одну из этих задач!

Answer 1

Zadacha_1;
var a,b,c:integer; 
begin   
writeln (' введите число');
    readln(a);
    b:=a mod 10;
    a:=a div 10;
    c:=a mod 10;
    a:=a div 10;
    if (a = b) or (a=c) or (b = c)then writeln ('такие числа есть')
    else writeln('таких чисел нет');
  end.

zadacha_2;
var a:integer; 
begin   
writeln(' введите время в минутах');
    readln(a);
    a:=a mod 10;
   if ((a >= 0) and  (a <= 3)) or ((a > 5) and  (a <= 8))  then writeln('зелёный');   
   if ((a > 3) and  (a <= 5)) or ((a > 8) and  (a < 0))  then writeln('жёлтый');
end.

Answer 2

Program  N1;
uses crt;
var a,b,c,d,s:integer;
begin
clrscr;
writeln('vvedite s');
read(s);
a:=s mod 100;
b:=s div 100;
c:=a mod 10;
d:=a div 10;
if (b=d) or (b=c) or (c=d) then writeln('Est') else writeln('Net');
readkey;
end.

Answer 3

Задача 1: Определение наличия одинаковых цифр в трехзначном числе

Для решения этой задачи вам потребуется использовать язык программирования Паскаль. Вам нужно определить, есть ли в трехзначном числе одинаковые цифры.

Алгоритм решения: 1. Считайте трехзначное число с помощью команды `readln`. 2. Разделите число на отдельные цифры, используя операции деления и остатка от деления. 3. Сравните цифры между собой и определите, есть ли одинаковые цифры. 4. Выведите соответствующее сообщение о наличии или отсутствии одинаковых цифр.

Пример кода на Паскале: ```pascal program CheckDigits;

var number, digit1, digit2, digit3: integer;

begin writeln('Введите трехзначное число:'); readln(number);

digit1 := number div 100; digit2 := (number div 10) mod 10; digit3 := number mod 10;

if (digit1 = digit2) or (digit1 = digit3) or (digit2 = digit3) then writeln('В числе есть одинаковые цифры') else writeln('В числе нет одинаковых цифр');

end. ```

Объяснение кода: - В этом коде мы считываем трехзначное число с помощью `readln`. - Затем мы разделяем число на отдельные цифры, используя операции деления и остатка от деления. - Затем мы сравниваем цифры между собой и выводим соответствующее сообщение о наличии или отсутствии одинаковых цифр.

Примечание: Пожалуйста, убедитесь, что ваша среда разработки настроена на использование языка Паскаль и что вы правильно вводите трехзначное число.

Задача 2: Определение цвета светофора для пешеходов

Для решения этой задачи вам также потребуется использовать язык программирования Паскаль. Вам нужно определить, какой цвет горит на светофоре для пешеходов в заданный момент времени.

Алгоритм решения: 1. Считайте время в минутах с помощью команды `readln`. 2. Используйте операции деления и остатка от деления, чтобы определить, в каком интервале времени находится заданное время. 3. Выведите соответствующий цвет светофора для пешеходов.

Пример кода на Паскале: ```pascal program TrafficLight;

var time: real; interval: integer;

begin writeln('Введите время в минутах:'); readln(time);

interval := trunc(time) mod 5;

if (interval >= 0) and (interval < 3) then writeln('Светофор для пешеходов горит зеленым') else writeln('Светофор для пешеходов горит красным');

end. ```

Объяснение кода: - В этом коде мы считываем время в минутах с помощью `readln`. - Затем мы используем операции деления и остатка от деления, чтобы определить, в каком интервале времени находится заданное время. - Затем мы выводим соответствующий цвет светофора для пешеходов.

Примечание: Пожалуйста, убедитесь, что ваша среда разработки настроена на использование языка Паскаль и что вы правильно вводите время в минутах.

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