1. Чему будет равно значение переменной s после выполнения фрагмента программы: s:=0;
FOR j:=5 TO 10 DO
begin
s:=s+j*j;
write('j=', j:2, 's=',s:4);
end;
2. Чему равно значение переменной P в результате выполнения фрагмента программы:
var
k,p:integer;
begin
p:=1;
FOR k:=10 DOWNTO 5 DO
begin
p:=p*k;
end;
writeln('k=', k:2, 'p=', p:3)
end.
