Можно такими координатами: 0.0 4.8 8.0 0.0
итого 4 координаты
Адрес клетки это - координаты этой клетки
конъюнкция (логическое умножение)
var
a,b,c,d:real;
z,x:integer;
begin
z:=0;
x:=0;
readln(a);
readln(b);
readln(c):
readln(d);
if (b mod a)=0 then writeln('a делитель числа b');
if (с mod a)=0 then writeln('a делитель числа с');
if (в mod a)=0 then writeln('a делитель числа в');
if a>b then z:=z+1;
if b>c then z:=z+1;
if c>d then z:=z+1;
if z=3 then writeln('числа расположены по убыванию');
z:=0;
if a mod 5=0 then x:=x+1;
if a mod 7=0 then x:=x+1;
if x=2 then z:=z+1;
x:=0;
if b mod 5=0 then x:=x+1;
if b mod 7=0 then x:=x+1;
if x=2 then z:=z+1;
x:=0;
if c mod 5=0 then x:=x+1;
if c mod 7=0 then x:=x+1;
if x=2 then z:=z+1;
x:=0;
if d mod 5=0 then x:=x+1;
if d mod 7=0 then x:=x+1;
if x=2 then z:=z+1;
x:=0;
writeln(z,'чисел делятся на 5 и 7 ');
z:=0;
if a<=7 then z:=z+1;
if b<=7 then z:=z+1;
if c<=7 then z:=z+1;
if d<=7 then z:=z+1;
if z>0 then writeln('есть числа больше или равные 7')
end.
предпоследнее не могу прочесть задание, так что сорри.
===== PascalABC.NET =====
begin
// 1
var a := ArrRandom(15, 0, 500);
a.Println;
Println('Сумма элементов равна', a.Sum);
// 2
var b := ArrRandom(20, 0, 200);
b.Println;
var i := b.IndexMin;
Println('Наименьший элемент номер', i + 1,
'имеет значение', b[i]);
// 3
var c := ArrRandom(10, 0, 100);
c.Println;
Println('Количество элементов кратных трем равно',
c.Count(p -> p mod 3 = 0))
end.
