Решите номер 18, пожалуйста

Знания

Информатика

1 ответ:

Denis964 года назад

0 0

Ответ ВГАБ.
Задача решается легко, если представить поисковые запросы в виде диаграммы, как на картинке. Тогда операция & будет означать пересечение областей, а | - объединение.

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

Срочно плиз!!! Ввести два числа ( C, O) и вывести наибольшее число из этих чисел .Учесть в программе, что числа могут быть равны

Асянастя [8]

Ввод: С ^ О С/П.

П1 <-> П0 - x<0 08 ИП0 С/П ИП1 С/П

0 0

4 года назад

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

Внесите необходимые команды в основной алгоритм так чтобы получится следующий рисунок

Смурый

Beging
ToPoint(0,5)
Итак дальше
end.

0 0

3 года назад

Помогите срочно нужно в паскале:1) Построить график функции y=cos(x2).2) Построить график функции y= 1/(x2+1).

vi-vi [2.7K]

1)
Program graph1;
uses graph;
var gd,gm,error,a,b: integer; x,y:real;
begin
gd:=detect;
initgraph(gd,gm,'');
error:=graphresult;
if error <> grOk then begin
write ('Ошибка: ', grapherrormsg(error));
readln; halt;
end;
while(x<=100) do begin
y:=cos(x*x);
a:=round(x*100);
b:=round(y*100);
PutPixel(a,b+300,15);
x:=x+0.001;
end;

readln;
closegraph;
end.

closegraph;
end.
2)
Program graph1;
uses graph;
var gd,gm,error,a,b: integer; x,y:real;
begin
gd:=detect;
initgraph(gd,gm,'');
error:=graphresult;
if error <> grOk then begin
write ('Ошибка: ', grapherrormsg(error));
readln; halt;
end;
while(x<=100) do begin
y:=1/(x*x+1);
a:=round(x*100);
b:=round(y*100);
PutPixel(a,b+300,15);
x:=x+0.001;
end;

readln;
closegraph;
end.
<span>
</span>

0 0

3 года назад

44 47 49 94 97 99 94 97 99какие четные и нечетные

Ждарах

44,94,94(четные) 47,97,99,97,99 (не четные(

0 0

4 года назад

Написать программу, которая вычисляет наибольший общий делитель двух целых чисел Паскаль

anni spi

Var a, b: integer;
begin
Writeln('Введите два числа');
Readln(a, b);
repeat
if a > b then a := a Mod b else
b := b Mod a;
until (a = 0) Or (b = 0);
writeln('НОД = ', a + b);
<span>end.</span>

0 0

4 года назад