№1
var vol, a, b, c: real;
beginwrite('Введите сторону а: ');
readln(a);
write('Введите сторону b: ');
readln(b);
write('Введите сторону c: ');
readln(c);
vol := a * b * c;
writeln('Объем прямоугольного параллелепипеда равен ', vol);
<span>end.
№2
const a = 3;
const h = 7;
var S: real;
begin
S := 1 / 2 * a * h;
writeln('Площадь треугольника равна ', S);
<span>end.
№3
var s: string;
begin
s := 'Чему равно 10 : 2?';
writeln(s);
readln();
<span>end.</span></span></span>
В виде таблицы не умею вот паскаль.
Program v;
var x, y:integer;
begin
for x:= -2 to 2 do y=x*(sqr(x))-sqr(x)+2*sqrt(x);
writeln(x,y);
end.
Киберспорт , Геймеры , Программисты
Program semchisel;
Var a,i,sum,proiz:integer;
Begin
proiz:=1; sum:=0;
for i:=1 to 7 do
begin
read(a);
if (a<3) then proiz:=proiz*a;
if (a>3) then sum:=sum+a;
end;
Writeln('proiz=', proiz, ' ', 'sum=',sum);
Readln;
End.
Var
R:real;
Begin
Write('R = ');ReadLn(R);
WriteLn('L = ',2*Pi*R);
WriteLn('S = ',Pi*R*R);
End.