Помогитттеееее срочно 13б!!! 1 Определить значение переменной S после выполнения...

Question

Помогитттеееее срочно 13б!!!
1 Определить значение переменной S после выполнения следующих команд: S:=1; n:=3; for i:=1 to n do s:=s+i*i.
2Что выведется на экран в результате выполнения фрагмента программы:
s:=0;

for j:=10 to 15 do

begin

s:=s+2*j;

write(s)

end.

3 Что выведется на экран в результате выполнения фрагмента программы:
p:=1;

for k:=5 downto 1 do

begin

p:=p*k;

end;

write(p).

Answer 1

1: Ну-с,  три раза циклом идем начиная с 1 до 3 и получается следующее:
    Идем первый раз: S:=1+1*1 в результате S = 2;
    Идем второй раз: S:=2+2*2 в результате S = 6;
    Идем третий раз: S:=6+3*3 в результате S = 15;
    Ответ: S = 15;
2: В результате выполнения программы будет выведены 6 чисел которые получились в результате вычисления s:=s+2*j;
Т.е. как и в предыдущем задание (1) идем циклом с  10 до 15 и считаем, а после сразу выводим.
    S:= 0 + 2*10; S=20;
    S:= 20 + 2*11; S=42;
    S:= 42 + 2*12; S=66;
    S:= 66+2*13; S=92;
    S:=92+2*14; S= 120;
    S:=120 + 2*15; S=150;
3: крч все тоже самое цикл и т.д.
Ответ: 5 20 60 120 120