Dagdamandпосчитайте, пожалуйта. Надо перед циклом задать ненулевое значение переменной из условия. Даю 40 поинтовvar n,i: integer; a,b,S: double; function square(a,b:double):double; beginsquare:=a*b;end;beginS:=0; while a<>0 do write('Введите длину: '); readln(a); Write('Введите ширину: '); readln(b); S:=S+square(a,b);write('Общая площадь: ', S:5:5); end.
ответы: 1
Зарегистрируйтесь, чтобы добавить ответ
Ответ:
:
a: = 1;
var
n,i: integer;
a,b,S: double;
function square(a,b:double):double;
begin
square:=a*b;
end;
begin
S:=0;
a:=1;
while a<>0 do
write('Введите длину: ');
readln(a);
Write('Введите ширину: ');
readln(b);
S:=S+square(a,b);
write('Общая площадь: ', S:5:5);
end.
271
doorwayЧтобы ответить необходимо зарегистрироваться.
