1. Информатика
  2. 1+3+3^2++3^7 написать

1+3+3^2++3^7 написать программу в pascal

FSoxGy FSoxGy    2   21.09.2019 20:50    0

Ответы
zeinebde zeinebde  16.08.2020 19:57
Program z18;  Var i: integer; s: real;Begin  s:= 1;  for i:=1 to 7 do    s:= s + power(3,i);  writeln('ответ: ',s);End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
PolinaS82001 PolinaS82001  20.11.2020 23:59
Информатика очень нужно Это должна быть программа в app inventor​...
Bioloqq Bioloqq  20.11.2020 23:46
Создайте запрос «Экзамены» содержащий ФИО учеников и оценки по всем экзаменам. 2. Создайте запрос «Русский» содержащий ФИО учеников, №83 школы и оценки по русскому языку.​...
voronkovid voronkovid  24.05.2019 10:20
Лазерный принтер кэнон лбп печатает со скоростью в среднем 6.3 кбайт в секунду . сколько времени понадобилось для распечати восьми страничнего документа , если что на одной странице...
qwdv qwdv  24.05.2019 10:20
Днк человека можно представить себе как некоторое слово в 4-х буквенном алфавите, где каждой буквой помечается звено в цепи днк сколько информации в битах содержит цепочка днк человека...
alenapolyakova5 alenapolyakova5  24.05.2019 10:20
Десятичное число 327 в двоичной системе счисления равно?...
Vihenka7 Vihenka7  24.05.2019 10:20
На паскале. в бригаде, работающей на уборке сена, имеется n сенокосилок. первая сенокосилка работала m часов, а каждая последующая на 10 минус дольше предыдущей. сколько часов работала...
snsn snsn  12.04.2020 20:55
1)В виде чего могут быть пронумерованы элементы нумерованного списка? 2) В каких случаях используют маркированный список? 3) Какие виды списков существуют по структуре? 4) Какой...
МаксимилианВеликий МаксимилианВеликий  12.04.2020 20:56
Что будет выведено на экране монитора после выполнения следующего фрагмента программы: b:=0; while a 0 do begin a:=a div 10; h:=b*10+a mod 10; end; write(h); если а=13305?...
goldshell goldshell  12.04.2020 20:56
Кодировке Unicode на каждый символ отводится два байта. Определи информационный объём текста из 42 символов в этой кодировке. Дам 25б...
arsaeva73 arsaeva73  12.04.2020 20:56
3. IlporpaMMHCT Harihca IporpaMMY CHHKJIOM.count = 0while count 20:print( привет!count t= 1Определите, как изменится работа программы, если:а) заменить условие на соunt = 20;б)...

Популярные вопросы