Var a,b,c:real;s,v:real;beginreadln(a,b,c);v:=a*b*c;s:=2*(a*b+a*c+b*c);writeln(v);writeln(s);end.<span>
</span>
Program massiv;
var i,max,n,j: integer;
a: array[1..30] of integer;
begin
writeln ('Введите элемент массива');
for i:=1 to 30 do
begin
write ('a[',i,']-');
readln (a[i]);
end;
n:=1;
max:=a[i];
for i:=2 to 30 do
if max<a[i] then
begin
max:=a[i];
n:=i;
end;
for i:=1 to 30 do
if a[i]<0 then a[i]:=-a[i];
writeln ('Наибольший элемент в массиве ', max);
writeln ('Номер массива ', n);
writeln ('Получившийся массив');
for i:=1 to 30 do
write (a[i],' ');
end.
Формулы: C=2πR, S=πR²
program zadacha;
uses crt;
var r: integer;
c, s: real;
begin
clrscr;
write ('vvedite radius: ');
readln (r);
c:=2*pi*r;
s:=pi*sqr(r);
writeln ('dlina okruzhnosti=', c:0:5, ', ploschad=', s:0:5);
readkey;
end.
Program Pr1;
uses crt;
var stroka,tmp:string;
i:integer;
Begin
clrscr;
readln(stroka);
for i:=1 to length(stroka) do if stroka[i]=' ' then tmp:=copy(stroka,1,i-1);
writeln(tmp);
end.
Чтобы программировать и создавать программы