Для перехода к слайду нужнo b) apply to all sides
31 запишется как 11111 - это 5 бит.
предложение займет 160 бит = 20 символов по 8 бит
Max=0
Min=30000
x=int(input())
while x:
if x>Max:
Max=x
if x<Min:
Min=x
print(Max,Min)
var a,b,c,e,k:integer;
begin
k:=9;//вставить любоое число
a:=-1;
while a<>0 do
begin
read(a);
if a>0 then b:=b+a;
if a<0 then c:=c+1;
if (a mod k = 0)and(a<>0) then
if e=0 then e:=a else e:=e*a;
end;
writeln('сумма положительных элементов = ',b);
writeln('кол-во отрицательных элементов = ',c);
writeln('произведение элементов, кратных ',k,' равнo ',e);
end.
если нужно , чтобы пользователь вводил К , то за место оператора к:=9; вставить read(k);
Формула
y=(2x-17√(x-7))/|3x-12|
Программа
Program y
var x, y: real
BEGIN
write ('Vvedite x');
readln (x);
y=(2*x-17*sqrt(x-7))/abs(3*x-12);
writeln ("y = ", y);
END.