Открыть чат ЗАДАНИЕ No5
ВРЕМЯ НА ВЫПОЛНЕНИЕ: x
00:00
1. Работа с информацией.
2. Выбираем компьютер
ТЕКСТ ЗАДАНИЯ
Обзор урока
Задания
Ситуация:
Света нашла в интернете стихотворение и опубликовала его на сайте молодых поэтов под своим именем.
Это
Нарушение авторского права
Кибербуллинг
Плагиат
Мошенничество ​

program p_1; var i, n : integer; a, s : real; b : array [1..1000] of real; begin writeln('введите число а'); readln(a); writeln('введите количество значений массива n'); readln(n); write('введите элементы массива b'); for i: =1 to n do readln(b[i]); writeln('первоначальный массив b'); for i: =1 to n do writeln(b[i]); s: =0; for i: =1 to n do if b[i] > a then s: =s+b[i]; writeln('сумма значений =', s); end.

в феврале 1946 года был создан первый компьютер.

не оскорбляю людей,а так же не ругаюсь с друзьями.не ругаюсь " словами".не ворую и не бью.

var x1, x2, x3, y1, y2, y3, p: real;

function len(x1, y1, x2, y2: real): real; begin len : = sqrt(sqr(x2 - x1) + sqr(y2 - y1)); end;

begin readln(x1, y1, x2, y2, x3, y3); p : = len(x1, y1, x2, y2) + len(x1, y1, x3, y3) + len(x2, y2, x3, y3); writeln(p: 8: 3); end.