Информатика: Вывести на экран числа от 1 до n и от n до 1 в две строки

gyfetyrt

22.09.2020 13:18

Информатика

Есть ответ 👍

Вывести на экран числа от 1 до n и от n до 1 в две строки

132

308

Посмотреть ответы 3

Ответы на вопрос:

PolinaSukova2

Информатика

4,7(72 оценок)

Pascalabc.net 3.3.5, сборка 1648 от 31.03.2018 внимание! если программа не работает, обновите версию! begin 1.to(readinteger('n='.reverse.println end. пример n= 15 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1

rmnikkp00szv

Информатика

4,6(62 оценок)

Program n1; var n,i: integer; begin readln(n); for i: =1 to n do write(i,' '); writeln; for i: =n downto 1 do write(i,' '); end.

Викка23

Информатика

4,6(46 оценок)

{1} const s: string = 'ivxlcdm'; var x,i,l,k: integer; begin read(x); {x < 4000} l : = 1000; i : = 4; for i : = 4 downto 1 do begin k : = x div l mod 10; if k = 9 then write(s[i*2-1],s[i*2+1]) else if k = 4 then write(s[i*2-1],s[i*2]) else begin if k > = 5 then begin write(s[i*2]); k : = k - 5 end; for k : = k downto 1 do write(s[i*2-1]) end; l : = l div 10 end end. {2} const eps = 1e-10; stp = 500; var a: real; l,r,m: real; extreme: real; function f(x: real): real; begin f : = a*x - exp(-x) end; begin read(a); if a = 0 then writeln('no solutions') else if a > 0 then begin l : = 0; r : = stp*2; while f(r) < = 0 do begin l : = l + stp; r : = r + stp end; while r - l > eps do begin m : = (l + r)/2; if f(m) > 0 then r : = m else l : = m end; m : = (l + r) / 2; writeln('solution: ',m: 0: 5); writeln('e^-x = ',exp(-m): 0: 5); writeln('ax = ',a*m: 0: 5) end else begin extreme : = ln(-1/a); if f(extreme) < 0 then writeln('no solutions') else if f(extreme) = 0 then writeln('solution: ',extreme) else begin {writeln('extreme: ',extreme); } l : = extreme; r : = 0; while r - l > eps do begin m : = (l + r)/2; if f(m) < 0 then r : = m else l : = m end; m : = (l + r) / 2; writeln('solution 1: ',m: 0: 5); writeln('e^-x = ',exp(-m): 0: 5); writeln('ax = ',a*m: 0: 5); writeln; r : = extreme; l : = r - stp*2; while f(l) > 0 do begin l : = l - stp; r : = r - stp end; while r - l > eps do begin m : = (l + r)/2; if f(m) > 0 then r : = m else l : = m end; m : = (l + r) / 2; writeln('solution 2: ',m: 0: 5); writeln('e^-x = ',exp(-m): 0: 5); writeln('ax = ',a*m: 0: 5) end end end. {3} var c: array [1..12] of 0..7; x,i,k: integer; begin read(x); k : = x; i : = 0; repeat i : = i + 1; c[i] : = k mod 8; k : = k div 8 until k = 0; for i : = i downto 1 do write(c[i]) end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.