Question

Помогите СРОЧНО ДАЮ 100 БАЛЛ ​

Answer 1

Ответ:

Var a,i : integer;

Begin

a:=1;

For i:=1 to 8 do a:=a*2;

write(a);

End.

Answer 2

Ответ:

наверно можно было бы это все дело сделать проще но это самый логичный способ