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

  • Найти все цифры в записи целого трёхзначного числа

Ответы 2

  • Program cifry;Var a,x1,x2,x3:integer;Begin Write('введите трехзначное число'); Readln(a); X1:=a div 100; X2:=(a div 10) mod 10; X3:= a mod 10;Writeln('цифра сотен числа ', а,' равна ',x1);Writeln('цифра десятков числа ', а,' равна ',x2);Writeln('цифра единиц числа ', а,' равна ',x3); Readln;End.

  • mod - берет остаток от деления

    div - берет целое число от деления(отбрасывает остаток)

    По этим функциям можно найти все цифры любого числа. Вот программа которая находит из  трёхзначного.

    Var a,b,c,z:integer;BeginReadln(z);a:=z mod 10;b:=(z mod 100) div 10;c:= a div 100;Writeln(a, ' ', b, ' ', c, ' ');End.

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

Еще вопросы

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

Войти через Google

 или

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

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

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