М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
каккураит
каккураит
30.06.2022 20:00 •  Информатика

Среди точек с координатами (x1,,y2)…(x10,y10) найти количество точек, лежащих в i-ой четверти и вывести на печать их номера.

👇
Ответ:
Pascal

var x,y:array[1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do
begin
write('(');
read(x[i]);
write(';');
read(y[i]);
write(')');
end;
writeln('To4kU, koToPbIe /\E>I<AT B /7EPBou 4eTBePTU');
for i:=1 to 10 do
if (x[i]>0)and(y[i]>0) then begin k:=1+k; writeln(i); end;
writeln('BCEtO - ',k);
end.
4,7(23 оценок)
Открыть все ответы
Ответ:
Yasenevo1036
Yasenevo1036
30.06.2022

1. True (Истина)

2. False (Ложь)

3. True (Истина)

4. True (Истина)

Объяснение:

1. A или B и C - так как у нас A = истина, следовательно данное логическое выражение всегда будет возвращать истину

2. B или НЕ C - B у нас Ложь, C истина, соответственно под инверсией C получает значение Ложь. Следовательно выражение всегда будет возвращать Ложь

3. B или (C и A) - Так как C и A хранят в себе истину и связаны с B с логического оператора "ИЛИ", выражение будет возвращать истину.

4. НЕ (A и B) или (B >= C или НЕ А) - В связи с тем, что в A и B хранятся истина и ложь соответственно, значение логического выражения A и B будет ложью, а инверсия ложи = истине. Следовательно уже НЕ (A и B) выдает истину и вторая часть выражения после после или рассматриваться не будет

4,4(5 оценок)
Ответ:
vilrimma
vilrimma
30.06.2022
1) var a:array[1..10] of real;
i:integer;

begin

randomize;
for i:=1 to 10 do begin
a[i]:= random(200) -100;
write(a[i]:5); end;

writeln;

for i:=1 to 10 do 
if a[i]>=0 then a[i]:=a[i]/2 else a[i]:=i;
write(a[i]:5);

end.

2) var a:array[1..1000] of real;
s1,s2:real;
i,n:integer;
begin
write('Введите кол-во элементов: '); readln(n);
writeln('Введите элементы массивы: '); 
for i:=1 to n do
read(a[i]);

s1:=0; s2:=0;
for i:=1 to n do
if odd(i) then s1:=s1+a[i] else s2:=s2+a[i];

writeln('Сумма элементов с четными номерами: ',s2);
writeln('Сумма элементов с нечетными номерами: ',s1);
end.
4,5(80 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ