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

не за что

Ответ
0 (0 оценок)
1
StellarisY 1 год назад
Светило науки - 94 ответа - 0 раз оказано помощи

Ответ:

Var a,i : integer;

Begin

a:=1;

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

write(a);

End.

Ответ
5 (1 оценка)
0
abdusabirovdavlat555 1 год назад
Светило науки - 60 ответов - 0 раз оказано помощи

Ответ:

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

Остались вопросы?