Информатика, опубликовано 2018-08-22 19:31:40 by Гость

1) Вывести на экран все трехзначные числа кратные 502) Найти сумму нечетных чисел от 100 до 150На паскале

Ответ оставил Гость

VAR
   k: LongInt;
BEGIN
   k := 50;
   While (k
   k := k + 50; Write(k, );
   End;
END.

VAR
   sum, k: LongInt;
BEGIN
   k := 101; sum := 0;
   While (k
   sum := sum + k;
     k := k + 2;
   End;

   Writeln(sum);
END.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.