Задать вопрос
ИнформатикаИнформатика
12 августа, 03:48

Что будет напечатано? Var s, k: integer; Begin S:=0; For k:=2 to 9 do S:=S+2*k; Write (s); End.

+3
Ответы (1)
  1. 12 августа, 06:00
    0
    Что будет напечатано?

    Var s, k: integer;

    Begin

    S:=0; / / задается начальное значение суммы

    For k:=2 to 9 do / / цикл изменяет значение переменной от 2 ло 9

    S:=S+2*k; / / высчитывается сумма

    Write (s); / / выводится ответ

    End.

    k = 2 - > s=0+2*2 - > s = 4

    k = 3 - > s=4+3*2 - > s = 10

    k = 4 - > s=10+4*2 - > s = 18

    k = 5 - > s=18+5*2 - > s = 28

    k = 6 - > s=28+6*2 - > s = 40

    k = 7 - > s=40+7*2 - > s = 54

    k = 8 - > s=54+8*2 - > s = 70

    k = 9 - > s=70+9*2 - > s = 88

    Ответ: 88
Знаешь ответ на этот вопрос?
Сомневаешься в правильности ответа?
Получи верный ответ на вопрос 🏆 «Что будет напечатано? Var s, k: integer; Begin S:=0; For k:=2 to 9 do S:=S+2*k; Write (s); End. ...» по предмету 📕 Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!
Найти готовые ответы
Похожие вопросы информатике
6) Определите, что будет напечатано в результате работы следующего фрагмента программы: var n, s: integer; begin s : = 0; for n:=4 to 13 do begin s : = s + 15; end; write (s) end.
Ответы (1)
Что напечатает следующая программа? program p3; var x, y:integer; procedure p1 (var a, b:integer); begin a:=sqr (a); b:=sqr (a) + a; end; procedure p2 (a, b:integer); begin a:=sqr (a); b:=sqr (b) + b; end; begin x:=2; y:=2; p1 (x, y);
Ответы (1)
var a, R : integer; Function F (x : integer) : integer; begin if x< = 0 then F:=0 else F:=x + F (x-2); end; begin a:=8; R:=F (a); write (R); end. В паскале ответ 20, как он получается? объясните поподробнее
Ответы (1)
1) Дана рекурсивная функция: function f (n: integer) : integer; begin if n>100 then f:=n-10 else f:=f (f (n+11)) end; Вычислите f (98).
Ответы (1)
Определите, что будет напечатано в результате работы следующего фрагмента программы: var n, s: integer; begin n : = 1; s : = 0; while n < = 20 do begin s : = s + 33; n : = n + 1 end; write (s) end.
Ответы (1)
Нужен ответ
1. Назовите город, правитель которого начал Троянскую войну. В каком веке это произошло? 2. Сформулируйте историческую причину начала Троянской войны? 3. Сформулируйте мифологическую причину начало Троянской войны?
Нет ответа
Исторический портрет Владимира Мономаха!
Нет ответа
Используя свойство 3 степеней, запишите в виде степениа) (2^2) ^3 б) (3^4) ^2 в) (3^7) ^2 г) (5^3) ^4 д) (10^3) ^5 е) (7^2) ^4
Нет ответа
Решите уравнение 3x-8 (x+2) = -41
Нет ответа
Дети ходили в лес за грибами и ягодами какие однородные члены предложения и как обозначить?
Нет ответа
Главная » Информатика » Что будет напечатано? Var s, k: integer; Begin S:=0; For k:=2 to 9 do S:=S+2*k; Write (s); End.
Регистрация Забыл пароль