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, так как число пи - не целое, и программа выдаст ошибку.
<span>Нормализация это приведение чего-то в нормальное состояние </span><span>
Нормализация цифр- процесс преобразования цифр к виду отвечающему нормальным формам.</span>
Если нам необходимо выполнить действия со следующими числами
-6392000000;
-639,2;
-0,0000006392,
то на дисплее нашего калькулятора удастся отобразить лишь второе из них (первое число занимает 13 знакомест, второе - 6 знакомест и третье - 12 знакомест), и, следовательно, задачу мы решить не сможем.
Однако эта задача может быть решена, если числа пpeдставить несколько иначе. Покажем, что искомый способ записи чисел в калькулятор таков:
-6.392Е+12; -6.392Е+02; -6.392Е-08,<span>где знак </span>Е<span> читается как "умножить на десять в степени".
</span>Такая запись отражает нормализованную форму записи чисел.
var a:integer;
function SumN (n:integer):integer;
var
i,sum:integer;
begin
i:=1;
sum:=0;
while i<=n do
begin
sum:=sum+i;
i:=i+2;
end;
if n mod 2 = 0 then sum:=sum+n;
sumN:=sum;
end;
begin
readln(a);
writeln('Сумма нечётных до "a"(вкулючая в сумму "a", даже если оно чётное): ',sumN(a));
end.
1) 5 вопросов (так как 2^5=32)
2) 9 вопросов (так как 2^9=512)
3) 9 вопросов (2^8=256 8 вопросов мало)
4) 10 вопросов
Верхний левый модуль реализует функцию B & C.
Нижний левый модуль реализует функцию ¬A
Правый модуль реализует функцию B & C ∨ ¬A