Var a,b,c : real;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
write('c = ');
readln(c);
if (a+b>c) and (a+c>b) and (b+c>a)
then writeln('Треугольник построить можно')
else writeln('Треугольник построить нельзя');
end.
Пример 1:
a = 3
b = 4
c = 5
Треугольник построить можно
Пример 2:
a = 3
b = 5
c = 9
Треугольник построить нельзя
1.
В задании скорее всего перепутано и нужно найти значение переменной D т.к. значение B не меняется и постоянно будет равно 18.
переменная D = 4, цикл выполнится 4 раза.
8. Нет алгоритама для решения
16. фрагмент схемы: программа находит произведение отрицательных элементов массива
с помощью условия Хi<0 определяется отрицательный элемент
само произведение вычисляется и хранится черех переменную R
все просто-
64 цветов значит каждый пиксель(точка) кодируется 6ю битами....
теперь перемножаем высоту и ширину 1024х768=786432 пикселя....умножаем на 6
786432х6=4718592бит....теперь разделим на 8 и найдем сколько байт 4718592/8=589824байт....
разделим на 1024 чтобы найти сколько килобайт 589824/1024=576килобайт
1)
uses crt;
const
n=5;m=7;
var
i,j,s:integer;
a:array[1..n,1..m]of integer;
begin
randomize;
clrscr;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(40)-19;
write(a[i,j]:4);
end;
writeln;
end;
writeln;
for j:=1 to m do
begin
s:=0;
for i:=1 to n do
s:=s+a[i,j];
writeln ('j:',j,' ', s);
writeln;
end;
end.<span>
</span>
<span>электронный процессор,драйверы устройств</span>