1)
Program n1;
var n,sum,i: integer;
begin
readln(n);
sum:=0;
for i:=2 to n do if i mod 2=0 then sum:=sum+i;
write(sum);
end.
2)
Program n2;
var i,sum: integer;
begin
sum:=0;
for i:=10 to 99 do sum:=sum+i;
write(sum);
end.
Сначала немного теории.
<span>--> - импликация,
следование
</span><span>Таблица истинности импликации</span>
<span>
x1 x2 r
0 0
1
0 1
1
1 0
0
1 1
1
Общее правило: если x1<=x2, тогда правда, в остальных случаях ложь.
^ - Конъюнкция, логическое И
Таблица истинности конъюнкции
x1 x2 r
0 0
0
0 1 0
1 0
0
1 1
1
Общее правило: если x1 или x2 = 0, тогда ложь. x1=x2=1, только тогда правда.
(первая буква имени согласная ---> вторая буква имени согласная)^ четвертая
буква имени согласная </span><span>
<span>1) Лариса </span>
<span>2) Сергей </span>
<span>3)
Геннадий </span>
<span>4)Елена
Теперь по вариантам:
1) Лариса
Получается (1--></span></span><span>0)^0=0^0=0,
не подходит
</span><span>2) Сергей
(1--></span><span>0)^1=0^1=0, не
подходит
3)</span><span> Геннадий
(1--></span><span>0)^1=0^1=0, не подходит
4) Елена</span>
(0--><span>1)^1=1^1=1, подходит
Ответ: 4) Елена</span>
X0+(x+1+1)*3+3=x0, y0+(y+3-2)*3+9=y0.
x+2=-1, y+1=-3,
x=-3, y=-4
Ответ № 4
24576 бит = 3072 байт = 3 КиБ
16384 бит = 2048 байт = 2 КиБ
12288 бит = 1536 байт = 1,5 КиБ
бит = 8192 бит = 1024 байта = 1 КиБ
16384 бит = 2048 байт (
байт) = 2 КиБ
131072 бит = 16384 байт = 16 КиБ
Может быть в антивирусе?
Ты бы хоть скриншоты приложил и описал.
