Правильно записать, . c=2πr s=πr². начало: program t var csπrr: integer; а дальше как? язык программирования паскаль.

program  T;

const Pi = 3.14;

var C, R, S: real;

begin

 writeln('Введите Радиус:');

 readln(R);

 C:= 2*Pi*R;

 S:= Pi*sqr(R);

 writeln('C = ', C, ', S = ', S);

end.

Немного не уверен в const, т.к. не пользуюсь этим, но поиграй там: поставь двоеточие, если не сработает. А так программа должна, в принципе работать. Только одно НО: у тебя неправильно на счёт integer, так как число пи - не целое, и программа выдаст ошибку.

===== PascalABC.NET =====

-№1-

begin

  var (Яблок, Апельсинов, Бананов) :=

     ReadInteger3('Число яблок, апельсинов и бананов:');

  var ВесЯблок := 100 * Яблок;

  var ВесАпельсинов := 150 * Апельсинов;

  var ВесБананов := 170 * Бананов;

  if ВесЯблок > ВесАпельсинов then

    if ВесЯблок > ВесБананов then

       Print('Берем яблоки')

    else

       Print('Берем бананы')

  else if ВесАпельсинов > ВесБананов then

     Print('Берем апельсины')

  else

     Print('Берем бананы')

end.

-№2-

begin

 var n := ReadInteger('Введите натуральное число;');

 var P := new HashSet<integer>;  // это множество целых

 while n > 0 do

 begin

   P += n mod 10;  // очередную цифру добавляем ко множеству

   n := n div 10

 end;

 P.Count.Println  // в множестве все элементы уникальны

end.

Объяснение:

1) 6 бит

2)По формуле N=2^i найдем, сколько было круглых фигурок - 2^2 = 4; Всего фигурок было 15+4=19. ответ: 19

3) я не знаю

4)Обозначим количество красных кубиков через x, тогда желтых будет 2x, а зеленых (2x + 6). Всего кубиков (5x + 6). Раз желтый кубик дает 2 бита, по формуле Шеннона желтые кубики составляют долю 2 в (-2) степени, т. е. 1/4 от всех кубиков. Значит всего кубиков 8x. Приравниваем 5x + 6 = 8x. Отсюда x = 2, т. е. зеленых кубиков 2x + 6 = 10.  

Итак, всего 10 зеленых кубиков.