Задать вопрос
4 марта, 06:18

Паскаль. Найти сумму четных чисел от 15 до 100.

+4
Ответы (2)
  1. 4 марта, 07:21
    0
    var

    i, k: integer;

    begin

    k : = 0;

    for i:=15 to 100 do if i mod 2 = 0 then k:=k+i;

    write (k) ;

    end.
  2. 4 марта, 09:37
    0
    begin

    Range (15, 100). Where (el - > el. IsEven). Sum. Println;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Паскаль. Найти сумму четных чисел от 15 до 100. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике