Var a,b,s1,s2,s3:integer;
begin
readln(a,b);
s1:=a div 100 + b div 100;
s2:=(a div 10 mod 10)+(b div 10 mod 10);
s3:=a mod 10 + b mod 10;
writeln('s1 = ',s1,' s2 = ',s2,' s3 = ',s3);
if (s1>s2) and (s2>s3)
then writeln('Последовательность убывающая')
else writeln('Последовательность неубывающая');
end.
Пример:
972 761
s1 = 16 s2 = 13 s3 = 3
Последовательность убывающая
Всегда где больше | тем больше число количество сайтов
И соответственно & это меньшее число сайтов
Поэтому:
ГБАВ
<em>1. Современное решение</em>
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
Writeln(n,'! = ',2.To(n).Aggregate(BigInteger(1),(i,j)->i*j))
end.
<u>Примеры</u>
n= 20
20! = 2432902008176640000
n= 43
43! = 60415263063373835637355132068513997507264512000000000
<em>2. "Школьный древний вариант"</em>
<em>// Free Pascal 3.0.0</em>
var
i,n:longint;
P:int64;
begin
Write('n= '); Read(n);
if n>20 then
Writeln('Слишком большое n, допустимо 1,2, ... 20')
else begin
P:=1;
for i:=2 to n do P:=P*i;
Writeln(n,'! = ',P);
end
end.
<u>Примеры</u>
n= 20
20! = 2432902008176640000
n= 43
Слишком большое n, допустимо 1,2, ... 20
Если не делать проверки n, было бы
n= 43
43! = -7904866829883932672
If x>y then begin writeln ('Не попал! Число больше!');goto m; end;
<span>if x<y then begin writeln('Не попал! Число меньше');goto m; end;</span>
Var
x, n, max: integer;
begin
n := 0;
max := 0;
while true do
begin
read(x);
if(x mod 3 = 0)and(x<>0) then n := n + 1
else begin if(n > max) then max := n; n := 0; end;
if(x = 0) then break;
end;
write(max);
end.