Элементы массива вычисляются по формуле в ( i ) = sin i + cos i. написать программу, которая выводит значения сорока элементов этого массива в строчку.

Программа написана на языке pascal abc

ответ:

объяснение:

описываем переменные:

var

chislo3 : integer;

chislostr, n1, n2, n3 : string;

begin

repeat

whiteln('ввод числа');

read(chislo3);

введенное целое число преобразуем в строку

chislostr: =str(chislo3);

проверяем, что длина строки 3, т.е. введенное число трехзначное и если да, то выходим из цикла

until length(chislostr)=3;

вырезаем из строки символы последовательно

n1: = copy(chislostr,1,1); n2: =copy(chislostr,2,1); n3: =copy(chislostr,3,1);

выводим выделенные символы построчно

writeln(n1);

writeln(n2);

writeln(n3);

end.

* синтаксис не тестил

Дано целое по­ло­жи­тель­ное число N. Не­об­хо­ди­мо опре­де­лить наи­мень­шее целое число K, для ко­то­ро­го вы­пол­ня­ет­ся не­ра­вен­ство:

1 + 2 + … + K ≥ N.

Для ре­ше­ния этой за­да­чи уче­ник на­пи­сал про­грам­му, но, к со­жа­ле­нию, его про­грам­ма не­пра­виль­ная.

Ниже эта про­грам­ма для Ва­ше­го удоб­ства при­ве­де­на на пяти язы­ках про­грам­ми­ро­ва­ния.

Бей­сик Python

DIM N, K AS INTEGER

INPUT N

K = 1

WHILE N >= 0

K = K + 1

N = N - K

WEND

PRINT K

END

n = int(input())

k = 1

while n>=0:

k = k + 1

n = n - k

print(k)

Пас­каль Ал­го­рит­ми­че­ский язык

var n, k: integer;

begin

read(n);

k := 1;

while n>=0 do begin

k := k + 1;

n := n- k;

end;

writeln(k)

end.

алг

нач

цел n, k

ввод n

k := 1

нц пока n>=0

k := k + 1

n := n - k

кц

вывод k

кон

Си++

#include <iostream>

using namespace std;

int main(){

int n, k;

cin >> n;

k = 1;

while (n>=0) {

k = k + 1;

n = n - k;

}

cout « k « endl;

return 0;

}

По­сле­до­ва­тель­но вы­пол­ни­те сле­ду­ю­щее.

1. При­ве­ди­те при­мер числа N, при вводе ко­то­ро­го про­грам­ма вы­ве­дет не­вер­ный ответ. Ука­жи­те вер­ный ответ и ответ, ко­то­рый вы­ве­дет про­грам­ма.

2. При­ве­ди­те при­мер числа N, при вводе ко­то­ро­го про­грам­ма вы­ве­дет вер­ный ответ. Ука­жи­те этот ответ.

3. Най­ди­те в про­грам­ме все ошиб­ки (их может быть одна или не­сколь­ко). Для каж­дой ошиб­ки вы­пи­ши­те стро­ку, в ко­то­рой она до­пу­ще­на, и при­ве­ди­те эту же стро­ку в ис­прав­лен­ном виде.

До­ста­точ­но ука­зать ошиб­ки и спо­соб их ис­прав­ле­ния для од­но­го языка про­грам­ми­ро­ва­ния.

Об­ра­ти­те вни­ма­ние: Вам нужно ис­пра­вить при­ведённую про­грам­му, а не на­пи­сать свою. Вы мо­же­те толь­ко за­ме­нять оши­боч­ные стро­ки, но не мо­же­те уда­лять стро­ки или до­бав­лять новые. За­ме­нять сле­ду­ет толь­ко оши­боч­ные стро­ки: за ис­прав­ле­ния, внесённые в стро­ки, не со­дер­жа­щие оши­бок, баллы будут сни­жать­ся.

Ре­ше­ние.

1. При­ме­ры чисел, при вводе ко­то­рых про­грам­ма вы­во­дит не­вер­ный ответ:

Зна­че­ние N Вер­ный ответ ответ про­грам­мы

1 1 2

2 2 3

3 2 3

5 3 4

6 3 4

9 4 5

10 4 5

2. При­ме­ры чисел, при вводе ко­то­рых про­грам­ма вы­во­дит вер­ный ответ:

Зна­че­ние N Вер­ный ответ ответ про­грам­мы

4 3 3

7 4 4

12 5 5

3. Про­грам­ма со­дер­жит две ошиб­ки:

1) не­вер­ная ини­ци­а­ли­за­ция;

2) не­вер­ное усло­вие цикла.

При­мер ис­прав­ле­ния для языка Пас­каль:

Пер­вая ошиб­ка:

k := 1;

Ис­прав­лен­ная стро­ка:

k := 0;

Вто­рая ошиб­ка:

while n>=0 do begin

Ис­прав­лен­ная стро­ка:

while n>0 do begin

В про­грам­мах на дру­гих язы­ках оши­боч­ные стро­ки и их ис­прав­ле­ния ана­ло­гич­ны.

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