Br Br WS r B 14 борсукам та 14 кроликам виділили для їхніх нірок по r B Br ділянці на полі розмірами 8*8. Літерою В позначені ділянки r Для борсуків, літерою — ділянки для кроликів. Всі звірята дотримуються правила: В r В rir В B r Якщо кількість сусідів його виду менша за кількість сусідів іншого виду, звірятко відмовляється B B r B поселятись на такій ділянці. B r Тому бобер-розпорядник поля здійснює велике переселення B за таким алгоритмом: r В 1. Починаючи з лівого верхнього кутка, він послідовно проходить всі рядки зліва направо і перевіряє, чи виконується вказане правило для кожного з кроликів. 2. Якщо правило виконується, кролик поселяється на цю ділянку. 3. Якщо правило не виконується, здійснюється пошук придатної ділянки у такому ж порядку: починаючи з лівого верхнього кутка, по рядках зліва направо. Кролик зразу ж переселяється на нову ділянку. 4. Після перевірки всіх кроликів, операції 1-3 виконуються для всіх борсуків. Тобто, першим перевіряється кролик з лівої верхньої клітинки. Його сусідом в один борсук. Тому першу літеру е потрібно перетягнути у другу справа клітинку верхнього ряду. До іть бобру виконати вказаний алгоритм.
В 5 строчке надо было написать 'then', а написано 'thn'
В 7 строчке 'else' должно быть, а написано 'ele'
Строчка 'd:=bb-4ac' тоже неверная. Переменной bb не было, поэтому, кажется, должно быть b.
Там много ошибок, поэтому я немного подправила код. Но он всё равно не будет работать, потому что там используется конструкция if else неправильно (лучше ещё раз переписать код и как-то изменить эту конструкцию. там много else, а по правилам, к каждому if относится только одно else. Самостоятельно же else работать не может без if)
var a,b,c,D,x1,x2:real;
begin
writeln('введите a,b,c');
readln(a,b,c);
if a=0 then if b=0 then if c=0 then writeln('x любое')
В 5 строчке надо было написать 'then', а написано 'thn'
В 7 строчке 'else' должно быть, а написано 'ele'
Строчка 'd:=bb-4ac' тоже неверная. Переменной bb не было, поэтому, кажется, должно быть b.
Там много ошибок, поэтому я немного подправила код. Но он всё равно не будет работать, потому что там используется конструкция if else неправильно (лучше ещё раз переписать код и как-то изменить эту конструкцию. там много else, а по правилам, к каждому if относится только одно else. Самостоятельно же else работать не может без if)
var a,b,c,D,x1,x2:real;
begin
writeln('введите a,b,c');
readln(a,b,c);
if a=0 then if b=0 then if c=0 then writeln('x любое')
else writeln('нет решений')
else begin
x1:=c/b;
writeln('x=',x1:12:6);
end;
else begin
d:=b-4ac;
if d>0 then begin
x1:=(-b-sqrt(D))/(2a);
x2:=(-b+sqrt(D))/(2a);
writeln('x1=',x1:12:6);
writeln('x2=',x2:12:6);
end;
else if D=0 then begin
x1:=-b/(2a);
writeln('x=',x1:12:6);
end;
else writeln('нет решений' );
end;
readln;
end.
1.
program qq;
const n = 10;
var a: array[1..n] of integer;
i,k: integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(2001)+1000;
write(a[i],' ');
end;
writeln;
k:=0;
for i:=1 to n do
if a[i] mod 3 = 0 then k:=k+1;
writeln('Количество элемениов кратных 3 - ', k);
readln;
end.
Пример:
2296 2042 2463 2049 1081 2156 2977 1633 1054 1425
Количество элемениов кратных 3 - 3
2. Определяется количество чисел, которые при делении на 10 дают остаток 8.
program qq;
const n = 10;
var a: array[1..n] of integer;
i,k: integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(2001)+1000;
write(a[i],' ');
end;
writeln;
k:=0;
for i:=1 to n do
if a[i] mod 10 = 8 then k:=k+1;
writeln('k = ', k);
readln;
end.
Пример:
1887 1878 2568 1936 2508 2788 2050 1569 2906 1782
k = 4