3600(сек в часе)*50(кадров в сек)*1280*720*32бит = 5308416000000 бит = 663552000000 байт = 648000000 килобайт = 632812,5 мегабайт = 618 Гигабайт
Var n,d:integer;
begin
write('Введите месяц :');
readln(n);
write('Введите день :');
readln(d);
n:=n mod 12;
case n mod 12 of
1: if d<=20 then writeln('Козерок') else writeln('Водолей');
2: if d<=21 then writeln('Водолей') else writeln('рыба');
3: if d<=21 then writeln('рыба') else writeln('овен');
4: if d<=21 then writeln('овен') else writeln('телец');
5: if d<=21 then writeln('телец') else writeln('близницы');
6: if d<=22 then writeln('близницы') else writeln('рак');
7: if d<=23 then writeln('рак') else writeln('лев');
8: if d<=24 then writeln('лев') else writeln('дева');
9: if d<=24 then writeln('дева') else writeln('весы');
10: if d<=24 then writeln('весы') else writeln('скорпион');
11: if d<=23 then writeln('скорпион') else writeln('стрелец');
12: if d<=22 then writeln('стрелец') else writeln('козерок');
end;
end.
//без if вряд ли удаться обойтись(+ я не учитывал високосный год и кратный 100 и 400)
Если вы имели в виду азбуку морзе, то вы расшифровали неправильно, так как "и" на азбуке морзе - "**", а тут первые два символа - "-*"
В фрагменте программы последовательно для всех i от 1 до 10 присваиваются значения .
Соответственно
<u>Управление другим</u>: мама, сестра и брат стыдят мальчика за двойку.
<u>Управление собой</u>: мальчику стыдно за себя, за свою оценку.