• Введите целое число от 10-999 а)определить количество знаков в числе б)определить,кратно ли 3

Ответы 1

  • //PacsalABC.Net// (c) NaaManvar    s : integer;begin    write('Введите число (10-999): ');    readln(s);    writeln('В числе ', s, ' ', s.ToString.Length, ' знака');    write('Число ', s);    if s mod 3 = 0 then        write(' кратно')    else        write(' не кратно');    writeln(' трём')end.
    answer img
    • Автор:

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

Войти через Google

или

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

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

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