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.