Ответ:
В ячейках таблицы
В А1 пишем -50
В А2 пишем -45
Выделяем А1 и А2 и растягиваетм вниз за правый нижний угол до ячейки, в которой окажется 50
В В1 пишем
=ЕСЛИ(И(ЕСЛИ(A1>-10;1;0);ЕСЛИ(A1<40;1;0));A1+2;COS(A1)+A1)
Выделяем В1 и также за нижний правый угол растягиваем вниз.
В столбце В получаем значения функции
Объяснение:
Внимательнее
Все названия ячеек на латинском
(¬A v B) /\ (B v ¬C)
(¬A + B) & (B + ¬C)
¬AB + ¬A¬C + BB + B¬C
¬AB + ¬A¬C + B + B¬C
(¬AB + B) + B¬C + ¬A¬C
(¬A + 1)B + B¬C + ¬A¬C
B + B¬C + ¬A¬C
B(1 + ¬C) + ¬A¬C
B + ¬A¬C
Var n,m : Integer;
Begin
Write (' введите N: '); Readln (n);
Write (' введите M: '); Readln (m);
Writeln ((n+m)*(m-n+1) div 2);
end.
//прога на Pascal`e
var
i, n: byte;
sum, a : longint;
begin
read (n);
for i:=1 to n do
begin
read (a);
if a mod 7 = 0 then inc (sum, a);
end;
write (sum);
end.
Program z4;
var s,l:integer; {объявляем переменные}
begin
s:=0; {начальное значение}
l:=0; {начальное значение}
while l<3 do {пока l<3 выполняем..}
begin {начало цикла}
l:=l+1; {увеличиваем l}
s:=s+l*l; {вычисляем текущее значение s}
end; {конец цикла}
writeln('s = ',s); {выводим s}
end.