Задать вопрос!

Задать вопрос!

Все категории

4 года назад

12

НУЖНА ПОМОЩЬ постройте таблицу истинности для логических выражений F=A&

(Bvc) и F=A&(Bva)&B

Информатика

1 ответ:

Ilia x500 [28]4 года назад

0 0

Ответ смотри на картинках

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

Срочно!Напишите функцию в Паскале,которая "разворачивает" десятичную запись числа наоборот,например,из 123 получается 321,а из 3

MariamL

Function reverse(s:string):string;
var s1:string;
i:integer;
begin
for i:=1 to length(s) do
s1:=s[i]+s1;
reverse:=s1;
end;

var s:string;
begin
readln(s);
s:=reverse(s);
writeln(s);
<span>end.</span>

0 0

4 года назад

В СЕМЬЕ ЧЕТЫРЕ БРАТА-ВАСЯ ИГОРЬ ДИМА И ТОЛЯ.КТО САМЫЙ ВЫСОКИЙ И КТО САМЫЙ МАЛЕНЬКИЙ .ПРЕДСТАВЬ ОТВЕТЫ В ВИДЕ ДИАГРАММЫ РОСТА

Лияяяя

Дима ниже Вася ещё ниже Игорь и ещё ниже Толя

0 0

4 года назад

Язык Паскаль . Создать числовой массив A[1..N] . Значение N вводится с клавиатуры . Все отрицательные элементы устранить , а так

pochemu4ka [14.5K]

Var A: Array of Integer;
N: Integer;
i: Integer;
sum: Integer;
Begin
Randomize;
Write('N = ');
ReadLn(N);
SetLength(A, N + 1);
WriteLn('Массив:');
For i := 1 To N Do
Begin
A[i] := Random(50) - 25;
Write(A[i] + ' ');
End;
WriteLn;
WriteLn('Без отрицательных:');
For i := 1 To N Do Begin
If A[i] >= 0 Then
Write(A[i] + ' ');
End;
sum := 0;
WriteLn;
WriteLn('Среднее арифметическое:');
For i := 1 To N Do Begin
sum := sum + A[i];
End;
WriteLn(sum / N);
<span>End.</span>

0 0

4 года назад

Дано два целых числа x и y .Составить программу печатающую среднее арифметическое кубов этих чисел ,а также определить на скольк

ermak61 [4]

Program srednee;
var
x, y: integer;
sredn: real;

begin
write('x = '); readln(x);
write(' y = ');readln(y);
sredn := (power(x, 3) + power(y, 3)) / 2;
writeln('Srednee arifmeticheskoe = ', sredn);
writeln('X otlichayetsya na ',abs(sredn-x));
writeln('Y otlichayetsya na ',abs(sredn-y));
end.

0 0

4 года назад

Пожалуйста. Помогите, СРОЧНОНаписать (листинг) программу вычисления функции значения y=x^2-16x+32 для от 1 до 10 с шагом 0,251)

Nikitos13

Program primer;
var y, x: real;
begin
x:=1;
repeat
  y:=x*x-16*x+32;
  write(y)
  x:=x+0.25;
until x < 10;
readln;
end.

0 0

4 года назад