var i: word; //Было предпочтительнее использовать byte, //ведь от 3 до 7 считаем, но тип word старее, //а к byte могут придраться
begin SetBrushColor(clBlue); //Проставляем цвет кисти, я не //нашёл функции рисования круга, //где можно было бы указать цвет for i := 3 to 7 do begin FillCircle(200, 200, 10 * i); //Рисуем круг, радиус от 30 до 70 sleep(500); //Поскольку круги в конечном счёте всё равно //затираются более большими, будем выводить //с задержкой end; end.
Программа на языке Турбо Паскаль 7.0 Вычисляет произведения всех нечетных двухзначные чисел, введенных с клавиатуры: program q; // Начало любой программы uses crt;// Подключение модулей var a,a1,b,c: integer; // Ввод переменных целочисленного типа begin // Начало исполняемого кода c:=1; // Присваиваем переменной с, хранящей произведение значения 1 Если этого не сделать, то не сработает счетчик. writeln;// Выводит надпись readln (a1);// Считывает число, каторое вы ввели и присваевает переменной a1 его значение for a:=1 to a 1 do begin// Начинает цикл от, повторяющийся нужное количества раз. writeln;// Выводит надпись readln (b);// Считывает введенное число и присваевает его значение переменной b if (b<100) and (b>9) and (b mod 2=1) then c:=c*b;//Оператор условия. Проверяет, двузначное ли это число ( больше 9 и меньше 100 ) и проверяет,нечетное ли оно по остатку от деления на 2 //Если да,то присваевает с значение c*b.В первый раз это будет 1*b, во второй,то,что получилось, умножить на следующее b и т.д. end;// Заканчивает цикл writeln( 'Произведение равно: ', c);//Выводит результат readln;//Ждет нажатия на enter end.//Конец программы
GraphABC;
var
i: word; //Было предпочтительнее использовать byte,
//ведь от 3 до 7 считаем, но тип word старее,
//а к byte могут придраться
begin
SetBrushColor(clBlue); //Проставляем цвет кисти, я не
//нашёл функции рисования круга,
//где можно было бы указать цвет
for i := 3 to 7 do
begin
FillCircle(200, 200, 10 * i); //Рисуем круг, радиус от 30 до 70
sleep(500); //Поскольку круги в конечном счёте всё равно
//затираются более большими, будем выводить
//с задержкой
end;
end.