помогите написать программу на паскале АВС. светофор переключается каждые 10 секунд. В 0 часов 0 минут 0 секунд горит зелёный. какой цвет будет гореть чер
10-11 класс
|
ез 4 часа 5 минут 23 секунды
var
timeInSec:integer; // время в секундах
color, s, m, h:byte;
begin
h := 4; //часы
m := 5; //минуты
s := 23; //секунды
timeInSec := h * 3600 + m * 60 + s; //перевод времени в секунды
color := (timeInSec div 10) mod 3; {целочисленно делим на 10, чтобы узнать сколько раз светофор изменил цвет}
{потом находим остаток деления на 3(количество цветов), чтобы узнать какой сейчас цвет}
case color of //вывод ответа
0: writeln('Горит зеленый свет'); //0 - это зеленый свет
1: writeln('Горит желтый свет'); //1 - это желтый свет
2: writeln('Горит красный свет'); //2 - это крсный свет
end;
end.
Другие вопросы из категории
"Составить программу вычисления y=1+(x/1)-((x^3)/3)+((x^5)/5)-.......+((x^15)/15) при изменении аргумента x в интервале 2<=x<=8. С шагом h=1
Необходимо в ячейке А4
С клавиатуры вводятся вещественные числа. Признак конца ввода - 0. Определить, является ли вводимая последовательность упорядоченной по невозрастанию или по неубыванию (PascalABC).
Читайте также
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу
13.
Нужно написать программу на цикле с предусловием, на Паскале.
2.написать программу в паскале
f(x)=2(sin*sin)x+1
Дано натуральное число n. Написать программу вычисляющую сумму