Program oplata;
var a,b:integer;
begin
writeln('Введите стоимость ');
readln(a);
writeln('Введите оплату ');
readln(b);
if a=b then writeln('спасибо')
else if a>b then writeln('добавьте денег')
else writeln('возьмите сдачу')
<span>end.</span>
Для начала необходимо вычислить значение выражения: 3658979549970420
После переводим в шестеричную систему, деля число на 6 и записывая остатки в обратном порядке:
3658979549970420/6 -->0
609829924995070/6 --> 4
101638320832511/6 --> 5
16939720138751/6 -->5
2823286689791/6 -->5
470547781631/6 --> 5
78424630271/6 --> 5
13070771711/6 --> 5
2178461951/6 --> 5
363076991/6 --> 5
60512831/6 --> 5
10085471/6 --> 5
1680911/6 --> 5
280151/6 --> 5
46691/6 --> 5
7781/6 --> 5
1296/6 --> 0
216/6 --> 0
36/6 --> 0
6/6 --> 0
1 --> 1
100005555555555555540
Ответ: 5
Вроде,нет inc'(n=1 ,n:5')
Program faktorial;
uses crt;
var n,i,k : longint;
begin
clrscr;
writeln('Vvedite chislo');readln(n);
k:=1;
for i:=1 to n do
k:=k*i;
write('factorial chisla ',n,' raven ', k);
readkey;
<span>end.</span>