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

Задать класс, в котором задан массив строк. Строки отражают названия составляющих элементов компьютера. Конструктор по умолчанию должен задавать пустую строку. Конструктор с параметрами должен определять элемент массива строк в соответствии с номером, задаваемым с клавиатуры. Определить метод печати выбранного элемента массива

👇
Открыть все ответы
Ответ:
2) каждое из чисел х у z положительно
 ( x>0) ∧ (y>0) ∧ (z>0)
1) х у z равны между собой
   (x=y)∨ (x=z) ∨ (y=z)
3) хотя бы одно из чисел х у z отрицательно 
(x<0)∨ (z<0) ∨ (y<0)
4) хотя бы одно из чисел х у z не является положительным
(x<0)∨ (z>0) ∨ (y>0)
5) только одно из чисел х у z не больше 10
 (( x<=10) ∧ (y>10) ∧ (z>10)) ∨ ( ( x>10) ∧ (y<=10) ∧ (z>10)) ∨ ( ( x>10) ∧ (y>10) ∧ (z<=10))  
6) ни одно из чисел х у z не равно 104
¬(x=104)∧ (¬(y=104))∧( ¬(z=104))
ВТОРОЕ ЗАДАНИЕ ПРОВЕРЬ УСЛОВИЕ ЧТО-ТО В НЕМ НЕВЕРНО
4,6(79 оценок)
Ответ:
Var A,B:real;
C:integer;
Begin
WriteLn('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход');
ReadLn(C);
While C <> 0 do
   Begin
   Write('Введите два числа: ');
   ReadLn(A,B);
   Write('ответ: ');
   Case C of
   1:WriteLn(A+B);
   2:WriteLn(A-B);
   3:WriteLn(A*B);
   4:WriteLn(A/B);
   End;
   WriteLn('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход');
   ReadLn(C);
   End;
WriteLn('Пока!');
End.

Вывод результат, точно как в условии:

Var A,B:real;
    C:integer;
Begin
WriteLn('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход');
ReadLn(C);
While C <> 0 do
   Begin
   Write('Введите два числа: ');
   ReadLn(A,B);
   Write('ответ: ');
   Case C of
   1:
     if B < 0 then WriteLn(A,B,'=',A+B)
     else WriteLn(A,'+',B,'=',A+B);
   2:
     if B < 0 then WriteLn(A,'+',-B,'=',A-B)
     else WriteLn(A,B,'=',A-B);
   3:
     if B < 0 then WriteLn(A,'*(',B,')=',A*B)
     else WriteLn(A,'*',B,'=',A*B);
   4:
     if B < 0 then WriteLn(A,':(',B,')=',A/B)
     else WriteLn(A,':',B,'=',A/B);
   End;
   WriteLn('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход');
   ReadLn(C);
   End;
WriteLn('Пока!');
End.

Пример:

1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход
4
Введите два числа: 4
-2.5
ответ: 4:(-2.5)=-1.6
1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход
1
Введите два числа: -3
-6
ответ: -3-6=-9
1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход
0
Пока!
4,5(46 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ