Var x: Integer; n: Real; begin WriteLn('Введите х='); ReadLn(x); if (x > 5) and (x < 50) then begin n:= 24*sqr(x) + 0,5 * x end else begin n:= 12 * x - 2 * sqr(x); end; WriteLn('Отвеt n=', n); ReadLn; end.
program cube; var a,s,v:real; begin; write('Введите длину ребра куба: '); read(a); v:=power(a,3); s:=6*sqr(a); write('Площадь равна ',s,', а объём равен ',v,'.'); end.
Второе задание:
program par; var a,b,c,s,v:real; begin; write('Введите стороны a,b,c: '); read(a,b,c); v:=a*b*c; s:=2*(a*b+b*c+a*c); write('Площадь равна ',s,', а объём равен ',v,'.'); end.
Третье и четвёртое задания:
program mult; var r,a,b,c:real; begin; write('Введите три числа: '); read(a,b,c); r:=a*b*c; write('Произведение чисел равно ',r); end.
x: Integer;
n: Real;
begin
WriteLn('Введите х='); ReadLn(x);
if (x > 5) and (x < 50) then begin
n:= 24*sqr(x) + 0,5 * x end
else begin
n:= 12 * x - 2 * sqr(x);
end;
WriteLn('Отвеt n=', n);
ReadLn;
end.