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

в формате jar jad и zip. не пешите ерунду за баню!

Показать ответ
Ответ:
ivanvolkov2001
ivanvolkov2001
26.06.2022 01:54

#include <iostream>

#include <math.h>

using namespace std;


int main(){

int x1,y2,x2,y2, r1, r2;

cin >> x1 >> y1 >> endl; //вводим координаты первой точки

cin >> x2 >> y2 >> endl; //вводим координаты второй точки

r1 = sqrt(x1*x1 + y1*y1); //находим расстояние от первой

r2 = sqrt(x2*x2+y2*y2) //от второй

if (r1>r2){

cout << "Точка 1 ближе к началу координат";

}

else{

cout << "Точка 2 ближе к началу координат";

}

else if (r1=r2){

cout << "Эти точки равны"

}

return 0;

}

0,0(0 оценок)
Ответ:
nastyskabaterfp08pfs
nastyskabaterfp08pfs
19.12.2020 04:01

Pascal

var a,b: array of integer;

i,k,s1,s2: integer;

begin

s1:=0;

s2:=1;

write('Введите количество элементов массива');

readln(k);

setlength(a,k);

setlength(b,k);

for i:=0 to k-1 do

begin

write('Ввод данных для a[',i,']=');

readln(a[i]);

if a[i]>0 then s1:=s1+a[i] else s2:=s2*a[i];

end;

writeln('Данные массива A:');

for i:=0 to k-1 do writeln('a[',i,'] = ',a[i]);

writeln;

writeln('Данные массива B:');

for i:=0 to k-1 do

begin

if a[i]>0 then b[i]:=s2 else b[i]:=s1;

writeln('b[',i,'] = ',b[i]);

end;

end.

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