И будет результат нулем. Переменной s значение нигде не присваивается.
Вместо строки <span>writeln('периметр ',a+b+c); записать p:=(a+b+c)/2; writeln('полупериметр ',p);
</span>Вместо строки writeln('площадь ',sqrt(p*(p-a)*(p-b)*(p-c))); записать
<span>s:=sqrt(p*(p-a)*(p-b)*(p-c)); writeln('площадь ',s);</span>
Var r,h:integer;
v1,v2:real;
begin
writeln('Ввод радиуса: ');
readln(r);
writeln('Ввод высоты цилиндра: ');
readln(h);
v1:=2*pi*r*h;
v2:=4/3*pi*(r*r);
if v1>v2 then write('Объем цилиндра больше')
else write('Объем шара больше');
end.
Код находится в приложении.
Ответ:
Объяснение:слово дорогой заменится на слово ветер.
Find what - найти
Replace - заменить
Program arr;
var
a: array[1..10] of integer;
i: integer;
begin
randomize;
for i := 1 to 10 do
a[i] := Random(10);
for i := 1 to 10 step 2 do
a[i] := a[i] * 3;
for i := 2 to 10 step 2 do
a[i] := 0;
end.