Var a,b,c:real;
begin
writeln('введите значения трех углов:');
readln(a,b,c);
if (a+b+c)<>180 then writeln('введены некорректные данные')else
if (a=90)or(b=90)or(c=90) then writeln('прямоугольный')else
if (a=b)and(b=c) then writeln('равносторонний')else
if (a=b)or(b=c)or(a=c) then writeln('равнобедренный')else
writeln('разносторонний')
end.
1. введите N.
2. цикл for от 1 до N будем вводить 'элементы массива x[i]/
3. в цыкле от 1 до N бедем выводить на экран массив writeln(x[i]) и считаем сумму. если в программе выполнять, то это будет выглядеть так
write('введите N'); readln(n);
for i:=1 to n do begin write('введите ',i,' элемент массива');
readln (x[i]);
end;
sum:=0;
for i:=1 t0 n do begin
write(' ',x[i]);
sum:=sum+x[i];
end;
write('а сумма всех элементов = ',sum);
Книга, т. к. это носитель информации
!B = !1 = 0
A & B = 0 &1 = 0
!(A v B) = !(0 v 1) = !1 = 0
!A v !B = !0 v !1 = 1 v 0 = 1
Ответ - вариант Г
Должно быть так:
V=51200*4*64/1024=32000 kbits, для перевода в кБайты:
V=32000/8=4000 kbytes