Задать вопрос
ИнформатикаИнформатика
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)
Нужен ответ
Из данных слов Выпиши имена существительные сильный зима, найти, дерево, рисовать, красивый, воробей, река, ручной, решать, подснежник, показаться.
Нет ответа
В санатории привезли апельсины мандарины и лимоны апельсины составляет пять четырнадцатых всех фруктов мандарины восемь 21-й, а лимоны остальные 99 кг сколько килограммов фруктов привезли в санаторий
Нет ответа
Расположите числа 5,28; - 1,634; - 1,34; - 1, (3); 2,3 (4) и 2, (34) в порядке убывания
Нет ответа
сравнить природные условия финикии древнего египта и индии
Нет ответа
Расстояние между двумя пунктами 40 км. Из одного из них в другой одновременно въезжают автобус и велосипедист. Скорость автобуса 50 км в час, велосипедиста 10 км в час.
Нет ответа
Главная » Информатика » Что будет напечатано? Var s, k: integer; Begin S:=0; For k:=2 to 9 do S:=S+2*k; Write (s); End.
Регистрация Забыл пароль