Задать вопрос
ИнформатикаИнформатика
14 декабря, 12:38

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

+3
Ответы (1)
  1. 14 декабря, 14:05
    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)
Нужен ответ
Найдите координаты точки, через которую проходят графики функций y=kx - 2k-3 при любых значениях параметра k
Нет ответа
Расстояние между двумя пунктами 40 км. Из одного из них в другой одновременно въезжают автобус и велосипедист. Скорость автобуса 50 км в час, велосипедиста 10 км в час.
Нет ответа
Вычислите (3-2 5/9) : 1/12 = 2) (7/18+5/12-2/3) * 0,9 = 3) (1,35-4/15) * 3/13+2 5/12 = 4) 0,1: (2 1/15+1/3) =
Нет ответа
дан параллелограм АВСD. O-точка пересечения диагоналей. Найдите векторы OD-OC, 2BO + DA, CD+DB+BA
Нет ответа
1/2 это ... 4 1/3 это ... (в десятичных дробях)
Нет ответа
Главная » Информатика » Что будет напечатано? Var s, k: integer; Begin S:=0; For k:=2 to 9 do S:=S+2*k; Write (s); End.
Регистрация Забыл пароль