• 1) Найдите сумму и произведение целых чисел больших 13 и меньших 100 и кратных 4. решите задачу на языке Pascal

Ответы 1

  • Program Pr1;uses crt;var i,c,t:integer;beginclrscr;c:=0;t:=1;i:=14;while i<100 do if i mod 4=0 then begin c:=c+i; t:=t*i; end;writeln('+ ',c);writeln('* ',t);end.

     

    • Автор:

      marco234
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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