Данное свойство алгоритма называется дискретность.
Var b,i,k,n: int64;
begin
readln(n);
b:=1;
for i := 1 to n do
b:=b*i;
writeln(b);
end.
Входные данные подставлять в переменную n
var A,B,C,S1,S2,k,i:integer;
begin
write('A, B, C:');
readln(A,B,C);
S1:=0;
while A>S1 do
begin
k:=k+1;
S1:=S1+C;
end;
S2:=0;
while B>S2 do
begin
i:=i+1;
S2:=S2+C;
end;
k:=k*i;
writeln('k = ',k);
end.
Var
x,y:real;
begin
y:=8/5;{км в одной миле}
writeln('введите расстояние в милях');
readln(x);
writeln('расстояние в км: ', x*y);
end.
Номер 2:
ответ: 1000011
номер 3:
а)100111110100
б)100
в)1001011