• Написать программу, которая подсчитывает количество чисел, оканчивающихся на 6, введенных с клавиатуры. Сигналом окончания ввода является ввод нуля

Ответы 1

  • Program n1;Uses CRT;Var s,i: integer;beginClrScr;Writeln('Введите последовательность. Для остановки введите 0 ');Repeatreadln(i);If (i mod 6=0)or(i mod 10=0) then s:=s+i;until i=0;writeln('Сумма =',s);readlnend.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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