помогиите:( необходимо описать каждую строку в программке) помогите!!

Помогиите:( необходимо обрисовать каждую строчку в программке) помогите!!

Задать свой вопрос
1 ответ
VAR
   a,b,c,x: Integer; - описание типов переменных
BEGIN
   Writeln('...'); // выводит, то что в скобках, с переносом строчки
   Write('...'); // выводит, то что в скобках, без переноса строки
   Readln(x); // считывает значение переменной x, с переносом строчки

   a := x div 100; 
// разделяет нацело Х на 100 и записывает результат в А (первая цифра числа)

   b := (x mod 100) div 10;
// берет остаток от  целочисленного деления Х на 100, нацело делит его на 10 и записывает его в b (2-ая цифра числа)
   
   с := x mod 10;
// берет отстаток от целочисленного деления X на 10 и записывает его в С

   s := a + b + c; 
// складывает числа числа

   Writeln('s = ',s);  // выводит итог
END.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт