9 бит, т.к. 64 это 2 в 6 степени и 6 приблизительно 2 в 3, 6+3=9 бит
//7.Написать программу на Паскале вычисления значения функции(х^2 при х>0 х-12 при х≤0)
var
x:integer;
begin
writeln('Введите x');
readln(x);
if x>0 then writeln('Ответ ', power(x,2))
else writeln('Ответ ', x-12);
end.
//8.Написать программу на Паскале нахождения периметра произвольного четырехугольника, данные вводить с клавиатуры.
var
a,b,c,d:integer;
begin
writeln('Введите a,b,c,d');
readln(a,b,c,d);
writeln('P= ', a+b+c+d);
end.
//9.Написать программу на Паскале вычисления значения выражения у=15х3+3х2-6
var
x:integer;
begin
writeln('Введите x');
readln(x);
writeln('Ответ ', 15*power(x,3)+3*power(x,2)-6)
end.
//10.Написать программу на Паскале вычисления значения функции(х^2+5х-4 при х>3х при х≤3)
var
x:integer;
begin
writeln('Введите x');
readln(x);
if x>3 then writeln('Ответ ', power(x,2)+5*x-4)
else writeln('Ответ ', x);
end.
program raf105;
const
N = 10;
var
a,b: array[1..N] of integer;
x: boolean;
begin
for var i:=1 to N do
begin
a[i]:= random(15);
b[i]:= random(15);
end;
writeln('A: ',a);
writeln('B: ',b);
write('Вывод: ');
for var i:=1 to N do
begin
x:= False;
for var j:=1 to N do
if a[i] = b[j] then x:= True;
if not(x) then write(a[i],', ');
end;
end.
<h3>PascalABC</h3>
PascalABC:
program ocenka; //название программы
var a:integer; //целочисленная переменная оценки
begin
writeln(a); //ввод (с клавиатуры) значения оценки
if (a=2) then writeln('Плохо') else writeln('Хорошо'); //условие (если а=2 -
// ругаем, иначе - хвалим)
end.
