//PascalABC.Net 3.2
begin //true - бьет; false - не бьет
var s1:=readstring ('Введите позицию пешки: ');
var s2:=readstring ('Введите позицию слона: ');
write (abs(ord(s1[1])-ord(s2[1]))=abs(ord(s1[2])-ord(s2[2])));
end.
144
162
2
//PascalABC.NET 3.1 сборка 1200
begin
var k := 0;
for var i := 132 to 188 do
begin
var n := i;
while n mod 2 = 0 do
n := n div 2;
while n mod 3 = 0 do
n := n div 3;
if n = 1 then begin
k += 1;
writeln(i);
end;
end;
writeln(k);
end.
Сколько символов в книге?
300*45*60 символов в книге. 1 символ=1байт, поэтому
информационный объем 300*45*60 байт = 810000 байт
var A:array[1..10] of integer;
i:integer;
s: integer;
begin
writeln('Массив А:');
s:=0;
for i:=1 to 10 do
begin
write('Введите ',i,'-e число ');
readln(A[i]);
if A[i] <> 0 then s:=s+1;
end;
write('Строка чисел: ');
for i:=1 to 10 do
begin
write(a[i],' ');
end;
writeln();
writeln('Сумма элементов, не равных нулю = ',s);
end.