Var
a,b: integer;
begin
write('Введите a:');readln(a);
write('Введите b:');readln(b);
if a<>b then writeln((b+2*a)/b)
else writeln(a,' = ',b);
end.
1. сначала буква столбца, потом номер строки: А6, С12...
2. в ячейках могут находится цифры(чмсла, проценты), буквы(текст), формулы(расчетные, логические...)
3. при режиме отражения формул в ячейке будет видна сама формула, при отражении значений - результат вычисления по формулам.
Uses crt;
const N=20;
var
i,A,x: integer;
arr: array [1..N] of integer;
begin
clrscr;
x:=0;
write ('A=');
readln (A);
writeln ('Array: ');f
or i:=1 to N do
begin
arr[i]:=random(41)-20;
write (arr[i],' ');
end;
for i:=1 to N do
begin
if (arr[i]>=0) and (arr[i]<=A) then
x:=x+1;
end;
writeln ();
writeln ('Answer: ',x);
readln ();
<span>end.</span>