Ребята очень прошу помогитееее! Буду очень благодарна)))

Question

Ребята очень прошу помогитееее! Буду очень благодарна)))

---

Answer 1

Ответ:

1) 6

2)38

3)160

Объяснение:

1) var

s, i: real;

begin

 s:=5;

 i:=5;

 while i>2 do i:=1;

 S:= S+ sqr(i);

 writeln (s);

end.

2) просто посчитай от 13 до 50 включая оба этих числа.

3) var

y,k: integer;

begin

 y:= 10;

 for k:=1 to 3 do y:= y+k;

 y := Y*10;

 begin

   writeln (y);

 end;

end.

Ответ: 160