Var a,b: Integer;
begin
writeln('Введите a и b');
readln(a,b);
writeln('S=a*b=',a*b);
writeln('P=2*(a+b)=',2*(a+b));
end.
Подскажите пожалуйста!!! Нужно составить слова в которых:- буквы: в, е, с, т, о.- буквы: с, е, р, д, а.- буквы а, л, о, м, с- бу
Леди Винтер
<span>- буквы: в, е, с, т, о: отвес, отсев
- буквы: с, е, р, д, а: среда, адрес
- буквы а, л, о, м, с: масло, смола
- буквы а, к, п, я, т: пятка, пятак, тяпка</span>
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.