Var
n: int64;
function f(n: int64): int64;
begin
if(n > 0) then f := f(n div 10) + (n mod 10);
end;
begin
readln(n);
write(f(n));
end.
Формулу сократить до
<span>1/6 (x - 4) (x - 5)
x!=-4
x!=5
и дальше что-то вроде
var
x,y,z,s:integer;
begin
writeln('Вычисление значения функции s=(x^2-10x+25)/(3x+12)/((2x-10)/(x^2-16))', в целых числах);
writeln('Введите значение X);
</span>readln(x);
y:=x-4;
z:=x+5;
if ((y=0) or (z=0)) then writeln('Значение функции не определено');
else begin
s:= 1/6*y*z;
write('s =');
writeln(s);
end;
end.
не уверен насчёт синтаксиса, где-то может быть лишние точка с запятой, проверьте.
const
n = 5;
var
i, j, k: integer;
a: array[1..n] of integer;
p: boolean;
begin
randomize;
for i := 1 to n do
repeat
k := random(90) + 1;
j := 1;
p := True;
while p and (j < i) do
if a[j] = k then
p := False
else
j := j + 1;
if p then
a[i] := k;
until p = True;
for i := 1 to n do
write(a[i], ' ');
end.
Рассмотрим возможные варианты А = 0 В = 0, тогда на выходе 1-й схемы И будет 0, на входе 2-й схемы 1 А=0 и В=0, т.к. входыобъединены. На выходе схемы 2-й схемы И будет 0. Сигнал 0 поступает на вход схемы НЕ. На выходе схемы НЕ сигнал равен 1А В F0 0 1 0 1 11 0 11 1 0
//прога на Pascal`е
var
a, b, i: integer;
begin
a:=17;
b:=-25;
while (a*b)<0 do
begin
inc (i);
writeln (i, ') a = ', a, '; b = ', b, '; a*b = ', a*b);
inc (a, -3);
inc (b, 5);
end;
end.