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.

yaltalove67    3   03.02.2021 01:00    7