1.Чему будет равно значение переменной s после выполнения фрагмента программы: s:=0;

FOR j:=5 TO 10 DO

begin

s:=s+j*j;

write('j=', j:2, 's=',s:4);

end;

120
355
150

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.

3.Заполни пропуски в программе.

Вывод на экран кубов чисел от 11 до 2.

var
:integer;
begin
for i:=
downto
do
writeln (i*i*i);
readln;
end.

S1mplendnnd    3   03.02.2021 15:36    0