Объяснение:
Не могу дать однозначный ответ, потому что могу ошибиться в подсчёте количества символов
(нужно задание в письменном виде)
Пример: если символов 45, просто умножаешь это число на 8, полученное число записываешь в ответ
(считать нужно вместе с пробелами, и знаками препинания если таковые имеются)
Var x,y: real;
var a,b,c,d:integer;
begin
readln(x,y);
if (y<1) then
write ('1')
else write ('0');
if (y<-x) then
write ('1')
else write ('0');
if sqr(x)+sqr(y)<1 then
write ('1')
else write ('0');
if sqr(x-1)+sqr(y)<1 then
write ('1')
else write ('0');
<span>end.</span>
Program massiv;
var
a: array [1..50, 1..50] of real;
i, j, m, n: integer;
begin
writeln('ввод количество строк');
read(n);
writeln('ввод количество столбцов');
read(m);
for i := 1 to n do
begin
for j := 1 to m do
begin
a[i, j] := random(10);
write(a[i, j]:5);
end;
writeln;
end;
end.
36 клеток в электронной табице
30клеток