3. Вибрати значок програми 1. Увімкнути живлення монітора та системного блока 6. Дочекатися завантаження вікна програми 4. Дочекатись, доки вказівник миші набере вигляду стрілки 5. Двічі клацнути кнопкою миші 10. Клацнути на кнопці ПУСК 9. Дочекатись, доки вікно програми закриється 11. Обрати кнопку ЗАВЕРШЕННЯ РОБОТИ 12. Дочекатись, поки індикатор на системному блоці не погасне 7. У вікні програми виконати вказівку ЗАКРИТИ 2. Дочекатись, доки відобразиться РОБОЧИЙ СТІЛ 8. Якщо не передбачено окремого завершення роботи програми, натиснути Закрити.
Program name;//Имя программы uses crt;//Запуск программы в консольном режиме НЕОБЯЗАТЕЛЬНО var a : Integer; b : Integer; i : Integer; c : Integer; BEGIN //Начало программы write('Введите 1 число: '); readln(a);//Ввод значения первого числа c := b-a-1; write('Введите 2 число: '); readln(b);//Ввод значения второго числа writeln(a, ' ' , b); //Вывод двух чисел writeln(a, ' ' ,a*a,' ' , a*a*a); // Вывод 1 числа, квадрата, куба for i := 1 to b-a-1 do begin a := a + 1; writeln(a, ' ',a*a, ' ', a*a*a); // Вывод всех чисел от a до b end; writeln(b, ' ' ,b*b,' ' , b*b*b);// Вывод 2 числа, квадрата, куба ReadKey; end. //Конец программы
