Площадь квадрата находится по формуле s=a², где a - сторона квадрата, длина диагонали квадрата d равна a√2. Периметр квадрата Р равен 4a, откуда a=P/4 Среднее арифметическое площади и диагонали (какой все же бред: соединять меры площади и длины!) может быть определено следующим образом.
var P,m:real; begin Write('Введите периметр квадрата: '); Read(P); Writeln('Среднее площади и диагонали равно ',P/8*(P/4+sqrt(2))) end.
Тестовое решение: Введите периметр квадрата: 45 Среднее площади и диагонали равно 71.2362012883487
Я не трус, но я боюсь! (Бриллиантовая рука) Да нам, царям, молоко нужно выдавать за вредность! (Иван Васильевич меняет профессию) Этот нехороший человек предаст нас при первой же опасности! (Джентльмены удачи) Бамбардия! Киргуду! Шутка! (Кавказская пленница) Шурик, это же не наш метод! (Операция Ы и другие приключения Шурика) Восток – дело тонкое. (Белое солнце пустыни) Утром деньги – вечером стулья,вечером деньги – ночью стулья… (Двенадцать стульев) Он, конечно. Виноват, но он… не виноват… (Берегись автомобиля)
Бриллиантовая рука - это не совсем верный ответ. В "Бриллиантовой руке" эта фраза тоже есть. Но впервые она появилась в фильме "Полосатый рейс"
Код: 1) program Mas; var i,ne,ch,n:integer; a:array [1..1000] of integer; begin read(n); randomize; for i:=1 to n do begin a[i]:=random(80)+21;write(a[i],' ');//Распечатка массива, увидешь правильно ли программа выполняет функци end; for i:=1 to n do begin if a[i] mod 2=0 then ch:=ch+1 else ne:=ne+1; end;writeln; writeln('Нечетные=',Ne); writeln('Четные=',Ch); end. 2)const n = 10; var A: array [ 1 .. n ] of integer; i, znachenie, count: integer; sred_arifm, sum: real; begin for i:=1 to n do begin write('a[,'i,']=');readln(a[i]); end; write('Введите значение:');readln(znachenie); sum:=0;count:=0; for i:=1 to n do if a[i] > znachenie then begin inc(count); sum:=sum+a[i]; end; sred_arifm:=sum/count; write('Среднее арифметическое ... =',sred_arifm:3:2); end.
длина диагонали квадрата d равна a√2.
Периметр квадрата Р равен 4a, откуда a=P/4
Среднее арифметическое площади и диагонали (какой все же бред: соединять меры площади и длины!) может быть определено следующим образом.
var
P,m:real;
begin
Write('Введите периметр квадрата: '); Read(P);
Writeln('Среднее площади и диагонали равно ',P/8*(P/4+sqrt(2)))
end.
Тестовое решение:
Введите периметр квадрата: 45
Среднее площади и диагонали равно 71.2362012883487