Var a,b:array of real;
i,n:integer;
begin
readln(n);
setlength(a,n);
setlength(b,n);
for i:=0 to n-1 do begin
read(a[i]);
b[i]:=a[i]/(i+1);
end;
for i:=0 to n-1 do
write(b[i],' ');
<span>end.</span>
var a,b,c:integer;
begin
write('Введите a = ' );readln(a);
if a>=0 then a:=sqr(a) else a:=sqr(a*a);
write('Введите b = ' );readln(b);
if b>=0 then b:=sqr(b) else b:=sqr(b*b);
write('Введите c = ' );readln(c);
if c>=0 then c:=sqr(c) else c:=sqr(c*c);
writeln('a = ',a,' b = ',b,' c = ',c);
end.
Sub aaa()
a = CDbl(InputBox("первое число"))
b = CDbl(InputBox("второе число"))
MsgBox "минимум двух чисел " + CStr(IIf(a > b, b, a))
End Sub
Правильный ответ - 4) микрофон, потому что когда мы говорим, он преобразует эти колебания в плавно изменяющиеся с течением времени
напряжение.
Ответ: 4
Источник ⇒ Кодирующее устройство ⇒ Канал связи ⇒ Декодирующее устройство ⇒ Приемник