1.точку после Энда ставить нужно
readln(a);
readln(b);
2.c:=a*b;
3.writeln('proizvedenie a i b ravno,c);
4.Readln(c);
Var a, b: integer;
begin
readln(a, b);
writeln('Первое число = ', a);
writeln('Второе число = ', b);
if (a + b) mod 5 = 0 then
writeln('Сумма двух чисел кратна пяти.')
else
writeln('Сумма двух чисел не кратна пяти.');
end.
Cls
rem a
let sum=0
let sred=0
let n=0
let i=1
input "n=";n
for i=1 to n step 1
input b
sum=sum+b
next n
sred=sum/n
print "Sred = ";sred
end
Рассмотрим возможные варианты кода:
11222 кол. для каждого случая =5!/(2!*3!) =5*4/2=10
11333 всего: 10*3 =30
11444
------------------------------------
11223 5!/(2!*2!*1!) = 5*4*3/2=30
11224 всего: 30*6 =180
11332
11334
11442
11443
-----------------------------------------
11234 5! / (2!1!1!1!) = 5*4*3=60
------------------------------------------------------------------------
Итого: 180+30+60 = 270