3 года назад

Составить таблицу истинности для формулы F=b&a v a&cПомогите, пожалуйста!((

Знания

Информатика

1 ответ:

andrei15203 года назад

0 0

Ниже калееа, палено. Капец да?

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

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

Борис Савченко [84]

Var a:array [1..10] of integer;
i,n:integer;
begin
n:=0;
for i:=1 to 10 do
begin
write ('Введите ',i,' число: ');
readln (a[i]);
n:=n+a[i];
end;
WRITELN;
write ('Сумма элементов в массиве = ',n);
end.

0 0

1 год назад

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

4. Точка А задана координатами X,Y. Написать программу, которая выводит слово «Принадлежит», если точка принадлежит заштрихованн

Маским1979 [49]

Var
x,y : integer;

begin

Writeln('Введите координаты x: ');
Read(x);
Writeln('Введите координаты y: ');
Read(y);
if (x>2) or (x<-2) then
Writeln('Принадлежит') else Writeln('Не принадлежит');

end.

0 0

4 года назад

[PASKAL] Составить программу вычеркивания из текста всех пробелов Помогите решить задачу !

oleg21 [5]

Var
s: string;
i: integer;
begin
readln(s);
for i:=length(s) downto 1 do
if s[i] = ' ' then
delete(s, i, 1);
writeln(s);
end.

Пример входных данных: Мама мыла раму
Пример выходных данных: Мамамылараму

0 0

3 года назад

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

C клавиатуры вводятся длины 2-х отрезков. Одна длина отрезка задана в миллилитрах, другая в дюймах. Какой отрезок длиннее&

vadyxa94

PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018
Внимание! Если программа не работает, обновите версию!

begin
var a:=ReadReal('Введите длину в миллиметрах:');
var b:=ReadReal('Введите длину в дюймах:');
var s:=Sign(a-25.4*b);
case s of
-1:Writeln('Второй отрезок длиннее');
0:Writeln('Отрезки равны');
1:Writeln('Первый отрезок длиннее')
end
end.

0 0

4 года назад

Помогите, пожалуйста, написать программу на Паскале! очень срочно!нужно составить программу численного интегрирования методом ср

рррррр18

var a,b,h,x,s:real; n:integer;
begin
a:=pi/3; b:=pi/2; n:=60;
h:=(b-a)/n;
s:=0;
x:=a+h/2;
repeat
s:=s+(sin(x)+cos(2*x))/(2+cos(x));
x:=x+h;
until x>b-h/4;
s:=s*h;
writeln(x);
end.

Результат:
 1.575159649924877e+00

0 0

4 года назад

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

Составить таблицу истинности для формулы F=b&a v a&cПомогите, пожалуйста!((​

Составить таблицу истинности для формулы F=b&a v a&cПомогите, пожалуйста!((