for i := 0 to 10 do
А[i]:=i;
for i := 0 to 4 do
begin
К := A[t];
A[i] := A[10 * i] * K;
A[10 * i] := K;
<span>end;</span>
Program qq;
uses crt;
var p, d, z, i: integer; k:real;
begin
writeln('Введите период для отрастания травы в днях:');
readln(p);
writeln('Введите потребное количество загонов:');
readln(z);
for i:=1 to 5 do
begin
d:=i; // переменная дней изменяется, как дано в условии от 1 до 5 дней
k:=round(p/d+z); //процедура round округляет по всем правилам число загонов. Ведь весьма нелогично строить, например 3,3333 загона:)
writeln ('Для количества дней пастьбы - ', d,' требуется загонов - ',k);
end;
end.<span>
</span>
Программы/приложения могут перестать работать в том случае, если какая-нибудь другая программа/приложение повреждена.
Var a,b,c:real;
begin;
writeln('First procent');
readln(a);
writeln('2-st procent'); //London is capital of Great Britan, desu
readln(b);
writeln('First value');
readln(c);
c:=c/100*(100+a);
c:=c/100*(100+b);
writeln('Final value:',c);
<span>end.</span>