var k, s: integer;begin s:=1; k:=0; while k amp;lt; 13 do

Var k, s: integer;

begin

s:=1;

k:=0;


while k lt; 13 do begin

s:=s+2*k;

k:=k+4;

end;

write(s+k);

end.


необходимо составить уравнение/неравенство для решения для наихорошего разумея как можно подробнее

Задать свой вопрос
1 ответ

так, ну смотри.

у тебя вначале даны двепеременные

s,котороеодинаково1

k,котороеодинаково0

программка заходит в цикл, в котором пока kбудетменьше13

будут выполняться данные вычисления

выходит, что каждый раз, числу sиkбудут присваиваться новые значения

щас распишу

  1. s=1+2*0 (s=1)
  2. k=0+4 (k=4)
  3. s=1+2*4 (s=9)
  4. k=4+4 (k=8)
  5. s=9+2*8 (s=25)
  6. k=8+4 (k=12)
  7. s=25+2*12 (s=49)
  8. k=12+4 (k=16)

циклпрервался!т.к.16меньше13

теперь мы выводим сумму s и k

49+16=65

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт