Вентиляция<span> – </span>это<span> регулируемый воздухообмен, осуществляемый с целью создания в </span>помещениях<span>жилых, общественных и промышленных зданий воздушной среды, благоприятной для здоровья и трудовой деятельности человека, а также для технологических целей. </span>Вентиляционные<span> системы – совокупность мероприятий и/или технических устройств, обеспечивающих воздухообмен.</span>
Var a:string;
i,k:integer;
b:char;
begin
writeln('Введите строку: ');
readln(a);
k:=length(a);
for i:=1 to round(k/2) do
begin
b:=a[i];
a[i]:=a[k-i+1];
a[k-i+1]:=b;
end;
writeln;
writeln('Итоговая строка: ');
writeln(a:7);
end.<span>
</span>
Program odin;
var a,b,c,d:integer;
x,y:integer;
begin
readln(a,b,c,d);
x:=a+b+c+d;
y:=a*b*c*d;
writeln('сумма чисел = ', x);
writeln('произведение чисел = ', y);
end.
// ------------------------------------------
program dva;
const p=3.14;
var r:integer;
s:real;
begin
writeln('Введите радиус ');
readln(r);
s:= pi * r * r;
writeln('Площадь круга = ', s);
end.
Массив- это "шкаф" в который надо что-то положить, но у этого "шкафа" не бесконечные "полки", поэтому нам будет проще в начале программы обозначить массив например в 10 "полок" и уже их все заполнять.
Разберем вариант до нуля. Его ведь может и не быть? А массив, как я говорил не вечный и имеет ограниченное количество "полок". Поэтому если в программе не будет введен ноль, то массив будет перезаполнен значениями, что приведен к ошибке программы.
const n=10;
var a: array[1..n] of integer;
i,s:integer;
begin
write('Массив: ');
for i:=1 to n do
begin
a[i]:=random(90)+10;
write(a[i]:3,' ');
if a[i]>30 then s:=s+a[i]
end;
writeln;
writeln ('Сумма чисел больше 30 равна ',s)
end.