Выполните вычисление по логической схеме:

Знания

Информатика

1 ответ:

Евгений11247 [50]4 года назад

0 0

1 и 0 = 0
0 или 1 = 1
не 1 = 0
Ответ: 0

Читайте также

Назовите основные параметры абзаца.

Лопатка Оксана [300]

Ответ:

тип выравнивания - По ширине;

межстрочный интервал - Полуторный;

первая строка – Отступ (1,25 см);

интервалы Перед и После (0 пт);

отступы Левый и Правый (0 см).

Объяснение:

0 0

3 года назад

Прочитать ещё 2 ответа

составьте программу вычисления корней квадратного уравнения по данным значениям его коэффициентов.

mnv-markiza

Var A, B, C, D, X, X1, X2 : Real;
Begin
Writeln ('Введите коэффициенты уравнения (A, B, C) ');
readln(a,b,c);
If A=0 Then
If B=0 Then
If C=0 Then Writeln('X - любое число')
Else Writeln('Корней нет! ')
Else
Begin
X:=-C/B;
Writeln('X=',X:8:3);
End
Else
Begin
D:=B*B-4*A*C;
If D<0 Then Writeln ('Корней нет! ')
Else
Begin
X1:=(-B+SQRT(D))/2/A;
X2:=(-B-SQRT(D))/2/A;
Writeln ('X1=', X1:8:3, ' X2=',X2:8:3);
End;
End;
End.

0 0

4 года назад

Придумайте графический способ представления поговорки знания собираются по капле.

чвсаиро [7]

Анимация процесса копирования или архивации
_____________________________________

0 0

4 года назад

Написать программу в Паскале Ввести натуральное число N и вычислить сумму всех чисел Фибоначчи, меньших N. Предусмотрите защиту

щгшшг

Var A,B,N:integer;
S:real;
Begin
A:=0;
B:=1;
Write('N = ');
ReadLn(N);
if N<0 then Write('Введите положительное число')
else
   Begin
   While A<N do
      Begin
      S:=S+A;
      A:=A+B;
      Swap(A,B);
      Write(A,' ');
      End;
   WriteLn;
   WriteLn('S = ',S)
   End;
End.

Пример:
N = 10000
1 1 2 3 5 8 13 21 34 55 89 144 233 377 610 987 1597 2584 4181 6765 10946
S = 17710

Примечание:
Условие немного некорректно, т.к.
1+1+2+3+5+8+13+21+34+55+89+144+233+377+610+987+1597+2584+4181+6765 = 17710.

0 0

4 года назад

Прочитать ещё 2 ответа

Гипертекст – это ...

Клэвбат

Это ссылка,а так если надо точно то

0 0

3 года назад

Прочитать ещё 2 ответа