В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
3ka9ty1a99
3ka9ty1a99
11.08.2021 07:33 •  Информатика

2. Складіть таблиці істинності логічних виразів зі змінними логічного

Показать ответ
Ответ:
Annalmak
Annalmak
19.01.2023 11:32
// C++
#include <iostream>using namespace std;const int N = 200;
int main() { setlocale(LC_ALL, "rus"); int data[N]; int Pol, Otr, sizemas; Pol = 0; Otr = 0; cout << "Введите размер массива" << endl; cin >> sizemas; cout << "Введите элементы массива (без 0)" << endl; for(int i=0; i<sizemas; i++) { cin >> data[i]; } for(int i=0; i<sizemas; i++) { if(data[i] >= 0) { Pol++; } else { Otr++; } } cout << "Положительных элементов: " << Pol << endl << "Отрицательных элементов: " << Otr << endl; return 0;}
0,0(0 оценок)
Ответ:
LoL228LoL228LoL228
LoL228LoL228LoL228
08.11.2020 10:36
// PascalABC.NET 3.2, сборка 1381 от 04.02.2017
// Внимание! Если программа не работает, обновите версию!

type
  Point=(real,real);

procedure GetPoint(var Q:Point);
begin
  var a,b:real;
  Write('Введите координаты точки: '); Read(a,b);
  Q:=(a,b)
end;

function Distance(a:Point):=Sqrt(Sqr(a[0])+Sqr(a[1]));

begin
  var a,b:(real,real);
  GetPoint(a);
  GetPoint(b);
  var d1:=Distance(a);
  var d2:=Distance(b);
  if d1<d2 then Writeln('Первая точка ближе')
  else
    if d1>d2 then Writeln('Вторая точка ближе')
    else Writeln('Точки равноудалены')
end.

Пример
Введите координаты точки: 13.7 -11.25
Введите координаты точки: 18 12.4
Первая точка ближе
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота