Вопрос по информатике:
Решать с помощью Паскаль
1.Дано трехзначное число. Определите есть ли в этом числе одинаковые цифры.
2. Работа светофора для пешеходов запрограммирована следующим образом: начиная с начала каждого часа, в течение трех минут горит зеленый сигнал, затем в течении двух минут — красный, в течении трех минут — опять зеленый и т.д. Дано вещественное число t, означающее время в минутах, прошедшее с начала очередного часа. Определить, сигнал какого цвета горит для пешеходов в этот момент.
Помогите, плизз) решите хотя бы одну из этих задач!
- 13.07.2018 12:47
- Информатика
- remove_red_eye 7851
- thumb_up 48
Ответы и объяснения 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.
- 14.07.2018 00:41
- thumb_up 44
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 5) and (a <= 8)) then writeln('зелёный');
if ((a > 3) and (a 8) and (a < 0)) then writeln('жёлтый');
end.
- 15.07.2018 19:35
- thumb_up 31
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.