===== PascalABC.NET =====
begin
var F: real-> real := n -> Sqrt(n) + n;
F(ReadReal('n =')).Println
end.
В 1988 году была отмечена эпидемия компьютерного вируса<span> Jerusalem, который был запрограммирован на особенно разрушительные действия, если активировался в пятницу 13-го. В первый раз это произошло в пятницу </span>13 мая 1988 года<span>. Этот </span>чёрный юмор<span> был перенят авторами некоторых других компьютерных вирусов.</span>
Begin
for i:=1 to 10 do begin
srzn:=m[i];
end;
srzn:=srzn/100;
end.
Сначала
2х2 равно 4, следовательно, А истинно. Обозначим истинное, как 1.
2х2 не равно 5, следовательно, В ложно. Обозначим ложное, как 0.
Тогда:
not(A and B) = not(1 and 0) = not 0 = 1, т.е. высказывание истинно.
A or not B = 1 or not 0 = 1 or 1 = 1, т.е. высказывание истинно.
Ответ:
1. 20
2. 30
Объяснение:
Это рекурсивный алгоритм, новые значения берутся из значений полученных ранее
F(1)=2
F(2)=F(2-1) + 2*2=2+4=6
F(3)=F(3-1) + 2*3=6+6=12
F(4)=F(4-1) + 2*4=12+8=20
Аналогично со 2 алгоритмом