Задать вопрос
14 августа, 08:52

Помогите) На теме этой болела) В долгу не останусь)

begin

s:=0;

for: = - 4to 1 do

s: = s+i;

writeln (s) ;

end.

+4
Ответы (1)
  1. 14 августа, 12:46
    0
    Если тебе нужно узнать значение переменной s, то выполним следующее:

    От-4 до 1 делай:

    s присвоить значение её же + i (позиция, в которой сейчас находится цикл) ;

    Таким образом:

    s + i : 0 + - 4 = - 4

    s + i : - 4 + - 3 = - 7

    s + i : - 7 + - 2 = - 9

    s + i : - 9 + - 1 = - 10

    s + i : - 10 + 0 = - 10

    s + i: - 10 + 1 = - 9

    Итог: s = - 9.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Помогите) На теме этой болела) В долгу не останусь) begin s:=0; for: = - 4to 1 do s: = s+i; writeln (s) ; end. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;
Ответы (1)
Как сделать теперь без массива (паскале) ? var nm:array of integer; j, l:integer; begin nm: = new integer[3] (random (20), random (20), random (20)) ; writeln ('nm[0] = ', nm[0]) ; writeln ('nm[1] = ', nm[1]) ; writeln ('nm[2] = ', nm[2]) ;
Ответы (1)
Дано три цифры вывести все возможные трехзначные числа пишет ожидался оператор begin program: adf; begin var a, b, c : = in tege; begin writeln ('write') ; read (a, b, c) ; writeln (a, b) ; writeln (b, a) ; writeln (a, c) ; writeln (c, a) ;
Ответы (1)
Выдаёт ошибку: операнды имеют неприводимые типы. Где я ошиблась? (Программа написана на языке Pascal ABC) Program Home; Uses CRT; Var a: integer; b: real; Begin WriteLn ('Введите еденицу измереня: килограмм, миллиграмм, грамм, тонна, центнер') ;
Ответы (1)
Запиши программу в Паскале для вычисления площади прямоугольника со сторонами c и m. 1) begin writeln ('Введи длину и ширину прямоугольника c и m') ; readln (c, m) ; s:=c*m; writeln ('s=', s) ; readln; end.
Ответы (1)