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

205

480

Посмотреть ответы 3

Ответы на вопрос:

сдаддае

Информатика

4,6(63 оценок)

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.

1qq

Информатика

4,4(98 оценок)

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.