Program srednee;
var
x, y: integer;
sredn: real;

begin
write('x = '); readln(x);
write(' y = ');readln(y);
sredn := (power(x, 3) + power(y, 3)) / 2;
writeln('Srednee arifmeticheskoe = ', sredn);
writeln('X otlichayetsya na ',abs(sredn-x));
writeln('Y otlichayetsya na ',abs(sredn-y));
end.

0 0

4 года назад

1. Что такое Интернет? 1) название локального диска. 2) программа обеспечения компьютера. 3) всемирная глобальная компьютерная с

Людмила Москоленко

1-3, 2-2, 3-3,4-4,5-1, 6-4, 7-1, 8-1,9-3,10-1

0 0

4 года назад

Решить задачу циклом For с использованием массива: Ввести данные о весе и росте N учащихся 9 класса. Определить средние вес и ро

Михаил Геннадьевичь

Program n1;
const n=10;
var
a : array[1..n] of integer;
a1: array[1..n] of integer;
s,s1,i: integer;
begin
s := 0;
s1:=0;
for i := 1 to n do
begin
write('введите рост ', i,' ученика: ' ); readln(a[i]);
s := s + a[i];
write('введите вес ',i,' ученика: ');
readln(a1[i]);
s1:=s1+a1[i];
end;
writeln('средний рост: ',s/n);
writeln('средний вес: ',s1/n);
end.

0 0

1 год назад

Прочитать ещё 2 ответа

1. Сетевой топологией не является: А. Звезда Б. Дерево В. Квадрат Г. Кольцо 2. Основной недостаток интеллектуальных токенов А

Максим2255 [181]

1.сетевой топологией не является квадрат

0 0

1 год назад

УПРОСТИТЬ Х1*(Х2+Х3)*Х1+Х2+Х1Х3 подсказка(использовать надо законы алгебры логики)

УПРОСТИТЬ Х1(Х2+Х3)Х1+Х2+Х1Х3 подсказка(использовать надо законы алгебры логики)