Для швейної компанії розробіть проект із графічним інтерфейсом Залишок, за до якого користувач планового відділу буде визначати площу тканини, яка залишиться після того, як із заготовки у формі квадрата зі стороною а вирізали круг радіусом R. Перевірте виконання проекту для значень сторони і радіуса відповідно (4 м, 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 - единиц

Тест по информатике. Правильные ответы отмечены галочками (v)Для верного решения нужно вспомнить, что в 1 байте 8 бит, а также 1кб=1024байт 1Мб=1024кб 1Гб=1024мб.1 символ кодируется 1 байтом, т.е. 8битамиСколько битов содержится в одном байте?(V) 8() 2() 1024() 10 Сколько байтов в слове бит?() 24 () 8(V) 3() 2 Сколько битов в слове байт?() 24() 8(V) 32() 4  512 битов - это:() 1.2 килобайта(V) 64 байта() 256 байтов() 50 байтов 1 килобайт - это:() 1000 байтов() 8 битов () 1024 бита(V) 1024 байта В какой строке единицы измерения информации представлены по возрастанию?() Гигабайт, мегабайт, килобайт, байт, бит.() Бит, байт мегабайт, килобайт, гигабайт.() Байт, бит, килобайт, мегабайт, гигабайт.(V) Бит, байт, килобайт, мегабайт, гигабайт.  8) 81 920 битов - это: () 80 килобайтов(V) 10 килобайтов() 8 килобайтов() 1 мегабайт