выбери формулу расчета площади кольца по заданным радиусам большого и малого кругов. произведение разности - id1704724220210723 от sofiamazanova 23.07.2021 12:02

Question

Информатика: выбери формулу расчета площади кольца по заданным радиусам большого и малого кругов. произведение разности квадратов радиусов на число pi произведение квадрата суммы радиусов на число pi произведение суммы квадратов радиусов на число pi произведение квадрата разности радиусов на число pi

sofiamazanova · Accepted Answer

Пример на Паскале. Пусть массив размером 100 элементов

Program Maasiv;

var A:array[1..100] of real; i,s:integer; k :real;

begin

random;

For i:=1 to 100 do A[i]:=randomize(100)-50; {заполняем массив случайными числами от -50 до 50}

s:=0; for i:=1 to 100 do if A[i]<i then S:=S+A[i]; writeln(s);{задание а}

s:=0; for i:=1 to 100 do if i/2=int(i/2) then S:=S+A[i]; writeln(s);{задание б}

s:=0; for i:=1 to 100 do if A[i]<0 then S:=S+A[i]; writeln(s);{задание в}

readln(k);s:=0; for i:=1 to 100 do if A[i]>k then S:=S+A[i]; writeln(s);{задание г}

end.

MOGZ ответил