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