1. Создайте программу, с библиотеки Tk, которая повторит данный рисунок. (картинка 1)
2. Напишите код для создания изображений "домика" (квадрат под
треугольником), солнце и травы (для создания травы используйте цикл
for i in range(0, 200, 10)) (картинка 2)

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var n:=ReadInteger('Введите четырехзначное число');
  Writeln('В числе');
  Writeln(n div 1000,' - тысяч');
  Writeln((n div 100) mod 10,' - сотен');
  Writeln((n mod 100) div 10,' - десятков');
  Writeln(n mod 10,' - единиц')
end.

Тестовое решение:
Введите четырехзначное число 4072
В числе
4 - тысяч
0 - сотен
7 - десятков
2 - единиц

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var n:=ReadInteger('Введите трехзначное число');
  var s:=n div 100;
  var d:=(n div 10) mod 10;
  var e:=n mod 10;
  Writeln('Sum=',s+d+e);
  Writeln(e,d,s);
  Writeln('В числе');
  Writeln(e,' - сотен');
  Writeln(d,' - десятков');
  Writeln(s,' - единиц')
end.

Тестовое решение:
Введите трехзначное число 492
Sum=15
294
В числе
2 - сотен
9 - десятков
4 - единиц

Тарихқа үңілсек ежелгі заманда да мемлекеттер халқының саны мен оның әскерге жарайтын бөлігінің санын анықтау, мал санын, жердің көлемін білу мақсатында есеп жүргізіп отырған. Бұл мәліметтерді салық жинау, соғыс жүргізу және т.с.с. жағдайларда пайдаланған. Қоғамның өзгеруі мен дамып отыру нәтижесінде есепке алып отыратын жаңа бағыттар пайда болған. XVII ғасырдың ортасында Англияда «Саяси арифметика» деген ғылыми бағыт пайда болған. Бұл бағыт қоғамда болып жатқан түрлі өзгерістерді есепке ала отырып, оның дамуына талдау жүргізуге бағытталған. «Саяси арифметика» бағытымен қатар, Германияда «Міндетті статистика» мектебі пайда болды. Осындай мектептердің арқасында ғылымда жаңа бағыт - статистика пайда болды. Статистика латын тілінде status – жай-күй, құбылыстар реті деген мағынаны береді. Бүгінде статистика деген үлкен ғылым.