Ответы
Ответ дал:
1
program pr;
var
i:integer;
procedure fiil();
var a,b: integer;
f:file of integer;
begin
assign(f,'c:\input.txt');
rewrite(f);
writeln('Введите длину прямоуг (а): ');
readln(a);
writeln('Введите ширину прямоуг (b): ');
readln(b);
write(f,a,b);
close(f);
end;
procedure show();
var
f:file of integer;
v:text;
s,p,a,b:integer;
begin
assign(f,'c:\input.txt');
reset(f);
while not eof (f) do begin
read(f,a,b);
end;
assign(v,'c:\output.txt');
rewrite(v);
S:=a*b;
P:=(a+b)*2;
writeln('p=',p);
writeln('s=',s);
write(v,'p=',p);
write(v,'s=',s);
close(f);
close(v);
end;
begin
fiil();
show();
end.
alez05321:
Мне кажется, ты слишком замудрил
Ответ дал:
0
Ответ:
и так же в площади
Приложения:
![](https://st.uroker.com/files/a92/a92db73d545a9543d252b65ccf0fa0ac.bmp)
Вас заинтересует
4 месяца назад
11 месяцев назад
11 месяцев назад
2 года назад
2 года назад
7 лет назад