Program n_1;
var r, d:integer;
begin
r:=2; d:=r*2;
writeln('Диаметр круга равен ',d);
end.
нарисуй обломки дома взади танки едут а в обломках дома ребёнок плачет весь грязный плачет над трупом матери вот!!!!
Program Pl_kruga;
uses
crt;
procedure SKr(L: real; var S: real);
var
R: real;
begin
R := L / 2 * Pi;
S := Pi * sqr(R);
end;
{ а это вызов }
var
L, S: real;
begin
Writeln('введи...');
Readln(L);
SKr(L, S);
Writeln(S:4:2)
end.
Клавиатура - это система, состоящая из взаимосвязанных частей, потому что благодаря разным комбинациям клавиш мы можем производить различные действия.
1 взять пакет с кормом в руки
2 открыть пакет
3 подойти к миске
4 наклониться
5 насыпать корм
6 выпрямиться
7 убрать корм на место
8 позвать собаку