var a,sum:integer;
begin
read(a);
while(a<>0)do begin
if(a mod 4=0)and(a>99)and(a<1000)then sum:=sum+a;
read(a);
end;
write(sum);
end.
Заходишь в Word => Вставка=>Формула. И из конструктора делаешь нужную тебе формулу.
Uses crt;
var x: array[1..10,1..10] of integer;
i,j,s,n: integer;
begin
randomize;
write('Размер матрицы: '); read(n);
writeln('Матрица:');
for i:=1 to n do begin
for j:=1 to n do begin
x[i,j]:=random(30)-10;
write(x[i,j]:5);
end;
writeln
end;
j:=n+1;
for i:=1 to n do begin j:=j-1; s:=s+x[i,j];
end;
writeln('Сумма элементов побочной диагонали: ',s);
end.
Ответ: 5
Внешний цикл выполнится ровно 5 раз
А) урок, весна, каникулы, информация, мокрому дождь не страшен
в) гитара, телевизор