Var A:integer;
Begin
Read(A);
A:= A mod 12;
if (A>=0)and(A<3) then Write(Зима);
if (A>2)and(A<6) then Write(Весна);
if (A>5)and(A<9) then Write(Лето);
if (A>8)and(A<=11) then Write(Осень);
End.
I=N*K
N=15,по умолчанию K=8 бит
<span>I=15*8=120
Через Дано будет также</span>
program raf105;
var
a,b,c,paint: real;
begin
write('Длина: ');
readln(a);
write('Ширина: ');
readln(b);
write('Высота: ');
readln(c);
paint:= (a*c*2 + b*c*2 + a*b) * 0.2;
writeln('Требуется ',paint,' л. краски');
end.
<h3>
PascalABC</h3>
1 - 3
2 - 4
3 - 5
4 - 1
5 - 2
6 - 8
7 - 6
8 - 7
9 - 11
10 - 12
11 - 13
12 - 10
13 -9
1. Водонагреватель. Служит для подогрева проходящей через него воды.
Входы: электропитание, холодная вода.
Выходы: горячая вода.
2. Телевизор. Устройство для демонстрации изображения со звуковым сопровождением.
Входы: электропитание, сигналы от внешних устройств, управление от пульта.
<span>Выходы: звук изображение, сигналы на внешние устройства.</span>