1. Информатика
  2. Используя оператор repeat until

Используя оператор repeat until ввчислить сумму s=1+6/7/1 6/7+6/7/2 5/7++6/7/n

help275 help275    3   03.10.2019 20:20    1

Ответы
arushikir arushikir  09.10.2020 15:17

program abc;

var s:real;

i,n:integer;

begin

readln(n);

repeat  

for i:=1 to n do  

S:=s+6/7/n

until i=n ;

writeln(s);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
QwErtY314455667 QwErtY314455667  23.02.2021 08:01
Изучи предложенный программный код и определи его назначение. a = int(input( Enter 1st number: ))b = int(input( Enter 2st number: ))c=bb = aa = Cprint(a,b)обмен Значений...
татар13 татар13  23.02.2021 08:02
Проанализируйте размещение на web-странице и запол-ните таблицу.Web-страницаТегФайл​...
mrzadvorgetski mrzadvorgetski  23.02.2021 08:02
Соотнеси метод работы с файлами с командой выполнения. readдля записи текстаwriteДля закрытия файлаdloseдля чтения файла​...
Evgenia111111111111 Evgenia111111111111  01.02.2022 00:33
Ексель создайте формулу, которая будет искать стоимость проживания в отеле на любую выбранную дату. Данные любые просто как формула будет выглядеть...
ahahahahahhahah ahahahahahhahah  01.02.2022 00:31
Какие из чисел записаны без ошибки(есть ещё вариант (3))...
koki1501 koki1501  01.02.2022 00:16
очень программа Python решить нужно задачу, которая сверху, та что снизу - условие...
Ira511 Ira511  14.02.2020 21:27
за 3 задачи! Python 1.Условие Иван и Петр любят играть в игру “Камень-Ножницы-Бумага”(правила в примечании). Они пишут свой выбор на листочке в виде целого числа: 1...
jimitapark jimitapark  14.02.2020 20:59
кто знает ответы на СОР по Информатике ​...
полина10092003 полина10092003  14.02.2020 20:54
S=a+b/2 блок схема сделайте...
Lunadiana Lunadiana  15.02.2020 08:10
Дам фрагмент программы. Чему будет равна переменная s в результате работы данной программы? var s, n: integer; begin s:=2; for n:=2 to 5 do s:=s+n*2; write (s); end....

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