4) разговор по телефону, вы обмениваетесь данными с собеседником, двухсторонняя связь
Var r,s,p:real;
begin
write('R=');
readln(r);
s:=Pi*sqr(r);
p:=2*Pi*r;
writeln('Площадь: ',s);
writeln('Периметр: ',p)
<span>end.</span>
Вайп - полное удаление информации
1_2.
const n=10;
var a:array[1..n] of integer;
i:integer;
begin
randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(81)+20;
write(a[i],' ');
end;
writeln;
writeln('Полученный массив:');
for i:=1 to n do
begin
if a[i] mod 2=0 then a[i]:=3 else a[i]:=-3;
write(a[i]:3);
end;
writeln;
end.
Пример:
Исходный массив:
49 25 50 90 82 20 71 25 57 45
Полученный массив:
-3 -3 3 3 3 3 -3 -3 -3 -3
1_3.
const n=10;
var a:array[1..n] of integer;
i:integer;
begin
randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(81)+20;
write(a[i],' ');
end;
writeln;
writeln('Полученный массив:');
for i:=1 to n do
begin
if i mod 2=0 then a[i]:=3 else a[i]:=-3;
write(a[i]:3);
end;
writeln;
end.
Пример:
Исходный массив:
85 29 99 27 80 70 70 58 78 46
Полученный массив:
-3 3 -3 3 -3 3 -3 3 -3 3