<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
Sqr(ReadReal / 4).Print
end.
<h2>Пример</h2><h3>20.8</h3><h3>27.04 </h3><h2>Пояснения</h2>
ReadReal - осуществаляет ввод вещественного числа (периметра).
ReadReal / 4 - находит сторону квадрата
Sqr(ReadReal / 4) - находит площадь квадрата
.Print - выводит значение того, что стоит до точки
Var a: array[1..100] of integer;
i, k,n: integer;
begin
writeln('Введите n:');
readln(n);
writeln('Массив:');
for i := n downto 1 do
begin
a[i] := random(100);
write(a[i]:4);
end;
writeln;k:=0;
for i := 1 to n do
if a[i] mod 2 <> 0 then
begin
writeln('Номер первого нечетного = ', i);
k:=1;
break;
end;
if k=0 then
writeln('В массиве нет нечетных элементов');
readln;
end.
Не понял, что вы подразумеваете под структурой алгоритма, наверное, то что он разветвляющийся. Блок-схема на фото.
C++
#include <iostream>
#include <cmath>
int main(){
setlocale(LC_ALL, "rus");
float x, y, poz;
fliat x1, y1, poz1;
std::cin>> x >> y;
std::cin>> x1 >> y1;
poz = sqrt(sqrt(x) + sqrt(y));
poz1 = sqrt(sqrt(x1) + sqrt(y1));
if (poz > poz1){
std::cout<<"A ближе";}
}else std::cout<< "B ближе";
return 0;
}
будут вопросы по коду пиши в комментариях