Программа находит сумма квадратов двух чисел, чтоб уьроенного меняешь только строку c= и пишешь c=a*3+b*3
Ответ:
Нельзя использовать точки
Нельзя оставлять поле именования пустым
Не должно быть символов * / \ | ?
614400 килобайт, надо просто кол-во символов умножить на кол-во строк, а потом полученный ответ надо умножить на кол-во страниц
const xn=100; const xm=100;var x: array [1..xn, 1..xm] of integer; n, m,i,j,r: integer;
begin write('Введите n');Read(n);write('Введите m');Read(m);for i := 1 to n do beginfor j := 1 to m do beginif ((i = 1) or (i = n)or (j = m) or (j = 1)) thenwrite(0:3,' ')else beginif (((i mod 2) = 0)or((j mod 2) = 0))thenwrite((i*i+j*j):3,' ')else beginr:= Round(Random()*15 - 5);write((r):3,' ');end;end;end; Writeln; end;end.