Не стыдно тебе(((((Если не знаешь ставь наугад
Pascal
Алгоритм1
var
s : string;
n1,n2 : integer;
i,l : integer;
begin
readln (s);
n1 := 0; n2 := 0;
l := Length(s);
for i := 1 to l do
if (s[i] = ' ') then
if n1 = 0 then
n1 := i
else
n2 := i;
if n2 = 0 then
s := ' '
else
s := copy(s,n1+1,n2-n1-1);
writeln (s);<span>
end.
Алгоритм2
var
s : string;
n1,n2 : integer;
i,l : integer;
r : boolean;
begin
readln (s);
n1 := 0; n2 := 0;
r := false;
l := Length(s);
i := 1;
While (i<=l) and (not r) do
begin
if s[i] = ' ' then
begin
n1 := i;
r := true;
end;
i := i +1;
end;
r :=false;
i := l;
While (i>0) and (not r) do
begin
if s[i] = ' ' then
begin
n2 := i;
r := true;
end;
i := i -1;
end;
if n2 = n1 then
s := ' '
else
s := copy(s,n1+1,n2-n1-1);
writeln (s);<span>
end.</span></span>
Изначально z=0.
Далее мы складываем элементы массива - 3+5+8=16.
Далее выводится число z, равное 16.
Упростить:
([не]х1 или х2) = х1 и х2
составить таблицы истинности:
х1 х2 [не]х1 или х2
0 0 1
1 0 0 *
0 1 1
1 1 1 *
х1 х2 х1 и х2
0 0 0
1 0 0 *
0 1 0
1 1 1 *
у нас два совпадающих расклада*, при которых уранение полностью ложно или полностью истинно:
при х1=1, а х2=0:
0=0 - ложно
при х1=1 и х2=1:
1=1 - истинно, значит, это и есть ответ.
1). var
a:integer;
b,c,x:real;
begin
a:=7;
b:=3.2;
c:=a+b;
writeln('summa=',c);
c:=c/2;
x:=a-c;
writeln('x=',x,'kvadrat=',x*x);
end.
2). Первое-выведется сумма цифр равная "C"
второе-выведется значение "х"=а минус полу сумма(1,9 это будет) а потом квадрат этого числа, т.е. 1,9*1,9=3,61.... вроде все)))