Задать вопрос Регистрация
Помочь другим

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

Ответы 2

  • VAR      k: LongInt;BEGIN      k := 50;    While (k < 1000) do begin        k := k + 50; Write(k, ' ');   End;END.VAR      sum, k: LongInt;BEGIN     k := 101; sum := 0;      While (k < 150) do begin            sum := sum + k;        k := k + 2;      End;    Writeln(sum);END.

    • Автор:

      tarakbjh
    • 6 лет назад
    • 0
  • Var   k: LongInt;Begink := 50; While (k < 1000) do begin  k := k + 50; Write(k, ' ');End;End.Var   sum, k: LongInt;Begin  k := 101; sum := 0;   While (k < 150) do begin      sum := sum + k;  k := k + 2;   End; Writeln(sum);End.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years