ФОРМАЛЬНАЯ ЛОГИКА? О_О ЧУВАК, ТЫ ТОЖЕ ЕЕ УЧИШЬ?
A: Все компьютеры черные; Все дети любят Пушкина.
I: Некоторые климатические пояса холодные; Часть клеток в организме нервные.
E: Все числа не делятся на ноль.
O: Некоторые люди не знают латынь; Почти все компьютеры не розового цвета.
Var a,b,k:integer;
begin
read(a,b); k:=a-1;
if a>b then do
while k<>b do begin
write(k); k:=k-1;
end;
end.
For i:= 110 downto 90 do
write(" ",i);
Одна лампа равна одному биту, так как можно представить, что включено - 1, выключено - 0.
<span>200 лежит в рамках от 128(2 в седьмой степени) до 256(два в восьмой степени), значит для 200 разных сигналов потребуется 8 ламп(бит)</span>
Var n, i: Integer;
x, sum, temp, cosx: Double;
begin
ReadLn(x, n);
sum:=0;
cosx:=cos(x);
temp:=1;
for i:=1 to n do begin
temp:=temp*cosx;
sum:=sum+temp;
end;
WriteLn(sum);
end.