Светлана: 1→¬(1+0)=1→¬1=1→0=0;
Анатолий: 1→¬(0+1)=1→¬1=1→0=0;
Римма: 0→¬(1+0)=0→¬1=0→0=1;
Дмитрий: 1→¬(1+0)=1→¬1=1→0=0;
Ответ: Римма
1: 10, 1, 1
2: var
x, y, z: real;
begin
readln (x,y,z);
if (x + y > z) then
begin
if (x + z > y) then
if (y + z > x) then
writeln('треугольник построить можно')
else writeln('треугольник построить нельзя');
end
else writeln('треугольник построить нельзя');
end.
3:
var
x, y, z: real;
begin
readln (x,y,z);
if (x + y > z) and (x + z > y) and (y + z > x) then
writeln('треугольник построить можно')
else writeln('<span>треугольник построить нельзя</span>');
end.
вроде все пашет так)))
1) одна из главных составляющих компьютера-процессор
2) Предмет системы вывода информации-монитор
3) одиз из компьютерных языков-паскаль ну или бейсик(бэйсик)
4) Один из основателей майкрософт-Гейтс
5) Предмет для ввода информации-Планшет(ну на котором рисуют пишут и т.п.) можно написать мышка или клавиатура
6) Программа софт защищающая компьютер от вредоносных программ-антивирус
В алф.36 !букв. Значит делим на 8 символов. Сообщений получ. 4
var
A,B,C: array[1..100] of integer;
i,n,j,k:integer;
begin
randomize;
j:=0;
k:=0;
Readln(n);
Writeln('Исходный массив:');
for i:=1 to n do
begin
A[i]:=random(10);
writeln('A[',i,']=',A[i]);
end;
for i:=1 to n do
if A[i]>5.5
then
begin
j:=j+1;
B[j]:=A[i];
end;
for i:=1 to n do
if A[i]<=5.5
then
begin
K:=k+1;
C[k]:=A[i];
end;
for i:=1 to j do
writeln('B[',i,']=', B[i]);
for i:=1 to k do
writeln('C[',i,']=', C[i]);
end.