Поделитесь своими знаниями, ответьте на вопрос:
Знайдіть в Інтернеті дані щодо кількості населення в Україні за останні 5 років. Створіть електронну таблицю за цими даними: секторну, лінійчату й графік.Розмістіть їх на окремих аркушах та оформіть на власний розсуд. Будь ласка, якщо хто може, потрібно на комп'ютері виконати.
x, a, b, c, y: integer;
begin
Write('Введите целое трехзначное положительное число ->');
Readln(x);
a := x mod 10;
y := 100 * a + (x div 10);
Writeln('Первоначальное число было: ', y);
b := y mod 100;
Writeln('Зачеркнули первую цифру: ', b);
b := 10 * b;
Writeln('Умножили на 10: ', b);
b := b + (y div 100);
Writeln('Прибавили зачеркнутую цифру: ', b);
Writeln('И получили введенное нами число - результат')
end.
Тестовое решение:
Введите целое трехзначное положительное число ->183
Первоначальное число было: 318
Зачеркнули первую цифру: 18
Умножили на 10: 180
Прибавили зачеркнутую цифру: 183
И получили введенное нами число - результат