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

Python тілінде процедура неден басталады *

Показать ответ
Ответ:
Лилиана4312
Лилиана4312
10.01.2021 19:08
Program pr9;
type mas = array[-10..10] of integer;
const n = 5;
var s, i:integer;
a:mas;
begin
     randomize;
     writeln('Номера четных отрицательных элементов:');
     s := 0;
     for i := 1 to n do
     begin
          a[i] := random(1000) - 500;{Числа рандомизируются от -500 до 500}
     end;
     for i:=1 to n do
     begin
          write(a[i], ' ');
     end;
     for i:=1 to n do
     begin
          if (a[i] < 0) and (a[i] mod 2 = 0)
          then
          begin
               write(i, ' ');
               s := s + a[i];
          end;
     end;
     writeln;
     writeln('Их сумма = ', s);
end.
0,0(0 оценок)
Ответ:
jiohjb
jiohjb
21.06.2020 21:41
Var x1, y1, x2, y2, x3, y3, P: real;
function length(x1: real; y1: real; x2: real; y2: real): real;
begin
     length := sqrt(sqr(x1 - x2) + sqr(y1 - y2));
end;
begin
     read(x1, y1, x2, y2, x3, y3);
     P := length(x1, y1, x2, y2) + length(x3, y3, x2, y2) + length(x1, y1, x3, y3);
     writeln('Perimeter is ', P);
end.

#include <cmath>
#include <iostream>

float length(float x1, float y1, float x2, float y2)
{
    return pow((x1 - x2) * (x1 - x2) + (y1 - y2) * (y1 - y2), 0.5);
}
int main()
{
    float x1, y1, x2, y2, x3, y3, P;
    std::cin >> x1 >> y1 >> x2 >> y2 >> x3 >> y3;
    P = length(x1, y1, x2, y2) + length(x3, y3, x2, y2) + length(x1, y1, x3, y3);
    std::cout << "Perimeter is " << P;
}
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота