1) Y:=5*x+3;
2) Z:=
3) X:=
4) x*x+x+1
5) Z:=x*(5+x/2)
6) X:=19 mod 5;
7) Z:=16 div 3;
<span>ячейку таблицы................</span>
107-9 = 98 человек знают как минимум один из языков.
86 + 80 - 98 = 68 человек знают оба языка
86-(98-80)=80-(98-86)=68
Var
s: biginteger;
n,i: int64;
ar:array of int64=(9,90,900,9000,90000,900000,9000000,90000000);
begin
i:=1;
read(n);
while n-ar[i-1]>=0 do
begin
s:=s+(ar[i-1]*i);
n:=n-ar[i-1];
i:=i+1;
end;
if(n>0)then
begin
s:=s+(n*i);
end;
write(s);
end.
var
f: integer;
begin
write('Сколько дней: ');
readln(f);
writeln('Полных недель: ', f div 7);
writeln('Полных месяцев (берем месяц 30 дней): ', f div 30);
end.