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.
Program massivy;
var array1: array [1..10] of integer;
i, b:integer;
begin
for i:=1 to 10 do
array1[i]:=random(-10, 10);
for i:=1 to 4 do begin
for b:=1 to 4 do
if array1[b] > array1[b+1] then
swap(array1[b], array1[b+1]);
end;
for i:=5 to 9 do begin
for b:=5 to 9 do
if array1[b] < array1[b+1] then
swap(array1[b], array1[b+1]);
end;
for i:=1 to 10 do
writeln(array1[i]);
end.
Ответ:
42 (число 11), 99 (число 30), 10050 (число 55)
Объяснение:
Написал код по этому алгоритму и посмотрел, какие из представленных чисел получаются в итоге.
DECLARE
b NUMBER;
c NUMBER;
d NUMBER;
e NUMBER;
BEGIN
FOR a IN 10..99 LOOP
IF length(a) = 2 THEN
b := power(substr(a, 1, 1),2); -- отрезаем первый разряд и возводим в квадрат
c := power(substr(a, 2, 1),2); -- отрезаем второй разряд и возводим в квадрат
d := b + c;
e := power(substr(a, 1, 1) + substr(a, 2, 1),2);
IF d > e THEN dbms_output.put_line(d || e);
ELSE dbms_output.put_line(e || d);
END IF;
END IF;
END LOOP;
END;
Автоматическая система,основной задачей которой является отработка заранее заданной программы.
Var
s, a, b: string;
i: integer;
begin
readln(s);
a:='Да';
b:='Нет';
while pos(a, s) > 0 do
begin
i:=pos(a, s);
delete(s, i, length(a));
insert(b, s, i);
end;
writeln(s);
<span>end.</span>
