Пожалуйста, объяните подробно. Обусловьте, что будет написано в итоге работы

Пожалуйста, объяните досконально. Определите, что будет написано в итоге работы последующего куска программки:

var k, s: integer;

begin

s:=0;

k:=1;

while s lt; 66 do begin

k:=k+3;

s:=s+k;

end;

write(k);

end.

Задать свой вопрос
1 ответ
Ну здесь рядовая программка с циклом, можно просто в лоб поглядеть, чтоб легче осознать.
Нам дано, что s = 0, k = 1
Далее цикл, пока s не станет больше либо равен 66, он будет работать
А цикл делает следующее
Каждый раз прибавляет 3 к k и добавляет это число k к s, чтоб получить священные 66, а сейчас осмотрим в лоб, какие числа крутятся в программе:
Начало: 1,0 - 4,4 - 7,11 - 10, 21 - 13, 34 - 16, 50 - 19 - 69. Стоп цикла, так как число S стало больше 66 (69)
Дальше программа выводит на экран число k(19)
Ответ: 19.
Гомзик Валерий
Ниже записана программа. Получив на вход число x , эта программка печатает два числа, L и M. Укажите наибольшее из таких чисел x, при вводе которых метод печатает поначалу 3, а позже 7.var x, L, M: integer;begin    readln(x);    L:=0; M:=0;    while x > 0 do begin        L:= L + 1;        if x mod 2 = 0 then            M:= M + (x mod 10) div 2;        x:= x div 10;    end;    writeln(L); write(M);end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт