<span>var k,r,h:integer;
begin
writeln('1 - длина окружности; 2 - площадь круга; 3 - объём цилиндра');
write('k = ');
readln(k);
case k of
1,2: begin write('R = '); readln(r); end;
3: begin write('R, h: '); readln(r,h); end;
end;
case k of
1: writeln('C = ',2*pi*r:5:3);
2: writeln('S = ',pi*r*r:5:3);
3: writeln('V = ',pi*r*r*h);
else writeln('Ошибка ввода');
end;
end<span>.
Пример:
</span><span>1 - длина окружности; 2 - площадь круга; 3 - объём цилиндра
k = 2
R = 5
S = 78.540</span></span>
В 7сс семь цифр: 0 1 2 3 4 5 6
в 9сс девять цифр: 0 1 2 3 4 5 6 7 8
Var
i:integer;
c:array [1..15] of integer;
a:array [1..15] of integer;
begin
for i:=1 to 15 do begin
c[i]:=Random (100);
end;
for i:=1 to 15 do begin
if (c[i] mod 2 = 0) then
a[i]:= c[i] div 2
else
a [i]:= c [i] *2;
end;
write ('Массив С: ');
for i:=1 to 15 do begin
write (c [i]);
write (' ');
end;
writeln (' ');
write ('Массив A: ');
for i:=1 to 15 do begin
write (a[i]);
write (' ');
end;
end.