program parampampam; uses crt; var i: integer; {счетчик} s: integer; begin clrscr; {очистка экрана} writeln ('Программа выводит числа от 1 до 99, сумма цифр которых равна числу S'); writeln ('Введите число S, от 0 до 18: '); {ввод числа S с проверкой на корректность} repeat readln (s); if (s>18) or (s<0) then writeln ('Неверный ввод. Повторите') until (s<=18) and (s>=0); {вывод нужных чисел на экран (цикл с предусловием)} for i := 1 to 99 do if ((i div 10) + (i mod 10) = s) then {div дает целую часть, mod - остаток от деления} write (i, ' '); repeat until keypressed; {пустой цикл для задержки экрана до нажатия клавиши} end.
uses GraphABC;
begin
SetWindowWidth(800); //ширина окна программы
SetWindowHeight(600); //высота окна программы
SetPenWidth(5); //толщина пера
setpencolor(clblue);
Rectangle(1, 600, 200,450);
Rectangle(150, 300, 200,450);
Line(1, 450, 150,450);
Line(150,450, 75,150);
Line(75,150, 1, 450 );
Line(200, 197, 400,197);
Line(400, 197, 300,107);
Line(300, 107, 200,197);
Rectangle(200, 600, 400,200); //дом
Rectangle(400, 600, 600,450); //дом
Rectangle(450, 300, 400,450); //дом
Line(447, 447, 600,447);
Line(600,447, 520,150);
Line(520,150, 447, 447);
Circle(300,300,50);
Circle(520,130,25);
Circle(75,130,25);
end.