Объяснение:
1.4-8, 5-3, 8-4
2. 2 и 4 -не высказывания
Высказывание – некоторое повествовательное утверждение, про которое можно однозначно сказать ("сразу посмотрев на него"), истинно оно или ложно
3. 3 переменных, 8 строк в таблице,
1) или \/ 2) инверсия скобок 3) конъюнкция "и" (&)
4.
5. ответ (4)
6. F=A&В\/неВ
АВ-F: 00-1, 01-0, 10-1, 11-1
Не понял с a2, если не квадрат, то позже исправлю
program func;
var
a, b: integer;
z: real;
begin
writeln('Введите a и b');
readln(a,b);
if a=0 then
writeln('Решения нет')
else if a<>0 then
begin
z:=((Sqr(a)-b)/(a-1));
writeln('z=',z);
end;
end.
<span><span>Относительный тип - обычная ссылка вида буква столбца-номер строки (B1, С4, похоже на морской бой). При копировании формулы Excel использует этот тип по умолчанию и это удобно.
</span><span>Абсолютный тип - ссылка вида $буква столбца-$номер строки. Абсолютный тип мы используем, когда хотим намертво зафиксировать ссылку на ячейку при копировании формулы.
</span><span>Смешанный тип сочетает в себе признаки относительного и абсолютного типов ссылок.</span></span>
Var x, a, b, c, s: integer;
begin
write('Введите число: '); readln(x);
a := x div 100;
b := (x div 10) mod 10;
c := x mod 10;
s := a + b + c;
writeln('Число принадлежит ', a, ' сотне');
if(s mod 2 = 0) then writeln('Сумма цифр четная')
else writeln('Сумма цифр нечетная');
end.
a - сотни
b - десятки
с - единицы
Надеюсь я правильно тебя понял.
uses DrawMan;
var i:integer;
begin
Field(22,14);
for i:=1 to 4 do
begin
ToPoint(6,7+i);
PenDown;
OnVector(5,-5);
OnVector(5,5);
OnVector(i,-i);
OnVector(-i,-i);
OnVector(-5,5);
OnVector(-5,-5);
OnVector(-i,i);
OnVector(i,i);
PenUp;
end;
end.
