Program n1;
Uses CRT;
Var r,s: real;
begin
ClrScr;
writeln('Vvedite radius');
readln(r);
s:=r*r*pi;
Writeln('ploshad =',s:4:4);
readln
end.
Объяснение:
Поделитесь своими знаниями, ответьте на вопрос:
Дана блок-схема программы. А) Запишите фрагмент программного кода, используя данную блок-схему. Подпись отсутствует Задание 4. Дана блок-схема программы. В) Какое принимает значения переменная В, при А = 6 Подпись отсутствует
Program n1;
Uses CRT;
Var r,s: real;
begin
ClrScr;
writeln('Vvedite radius');
readln(r);
s:=r*r*pi;
Writeln('ploshad =',s:4:4);
readln
end.
Объяснение: