Переделать с цикла while на цикл repeat! и ещё сделать блок схему по циклу repeat. вот программа которую нужно переделать: program while20; var n, n1: integer; begin write('введите число n'); readln(n); while (n> 0) and (n1< > 2) do begin n1: =n mod 10; n: =n div 10; end; if n1=2 then writeln('true') else writeln('false'); 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

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

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

Для начала как его могут называть:

Электронная почта, эл. почта;

Интернет-почта

имейл, мейл (транскрипция с английского)

е-мейл, емейл, емайл (различные варианты транслитерации).

Электронная почта по составу элементов и принципу работы практически повторяет систему обычной (бумажной) почты, заимствуя как термины (почта, письмо, конверт, вложение, ящик, доставка и другие), так и характерные особенности использования, задержки передачи сообщений, достаточную надёжность и, в то же время, отсутствие гарантии доставки.

Достоинствами электронной почты являются: легко воспринимаемые и запоминаемые человеком адреса вида имя_пользователя@имя_домена (например [email protected]); возможность передачи как текста, так и форматированного, а также произвольных файлов (текстовые документы, медиафайлы, программы, архивы и т. д.[1]); независимость серверов (в общем случае они обращаются друг к другу непосредственно); достаточно высокая надёжность доставки сообщения использования человеком и программами, высокая скорость передачи сообщений.

Недостатки электронной почты: наличие такого явления, как спам (массовые рекламные и вирусные рассылки); возможные задержки доставки сообщения (до нескольких суток); ограничения на размер одного сообщения и на общий размер сообщений в почтовом ящике (персональные для пользователей).

В настоящее время любой начинающий пользователь может завести свой бесплатный электронный почтовый ящик, достаточно зарегистрироваться на одном из интернет-порталов.

Объяснение: (половина взята с вики)