Исправить) в 5 строке пишет, что ожидалось константное выражение, не знаю как исправить uses crt; var - id706271220210307 от vasiaplaton 07.03.2021 18:12

Question

Информатика: Исправить) в 5 строке пишет, что ожидалось константное выражение, не знаю как исправить uses crt; var v1,v2,v,r1,r2,r,h : real; const pi=3.14 ; write=( r1= ); readln=(r1); write=( r2 ); readln=(r2); write=( h= ); readln=(h); v1= ((pi/3) * h*((r1*r1)+r1*r2+(r2* ; v2= (h/3 * pi * r*r); v= v1-v2 ; writeln =(v); begin ; end.

vasiaplaton · Accepted Answer

Var
i: integer;
ar: array[1..4]of integer;

procedure Divisor(x: integer);
var
d, c: integer;
begin
c := 1;
if(x < 1) then exit;
write(x, ' = ');
if(x = 1) then begin writeln(1, ' Количество делителей:', 1);exit end;
d := 2;
while x > 1 do
begin
if(x mod d = 0) then
begin
if(x div d <> 1) then write(d, ' * ')
else write(d, '; ', ' Количество делителей:', c);
x := x div d;
c := c + 1;
end
else d := d + 1;
end;
writeln;
end;
begin
writeln('Введите четыре числа:');
for i := 1 to 4 do read(ar[i]);
writeln;
for i := 1 to 4 do Divisor(ar[i]);
end.

MOGZ ответил