Var a,b,c:integer;
begin
read(a,b,c);
if (a>=0) and (b>=0) and (c>=0) then
writeln(sqrt(a)+sqrt(b)+sqrt(c))
else
writeln('Одно из чисел отрицательное');
<span>end.</span>
var
arr: array[1..20] of real;
s:real;
i:integer;
Begin
s:= 0;
write('Массив: ');
for i:=1 to 20 do begin
arr[i]:= random(10);
write(arr[i], ' ');
end;
for i:=1 to 20 do
if Abs(arr[i]) > 1 then
S:= S + arr[i];
writeln;
writeln('Сумма: ', s);
END.
. Поведение объекта.
2. Единичное имя.
3. Свойство.
4. Множество.
5. Модель.
6. Состояние.
7. Признак.
8. Слово или название, быть может. (Я что-то вопрос не поняла)
<span>9. Общее имя. </span>
1)3 так так как системный блок включает в себя остальные элементы.
2) 4 , 2 , 3 ,1( могу ошибаться)))
3) троллейбус создает электрическое магнитное поле , что очень вредно для магнитного диска, диск просто напросто размагнитился.