#2
Ты не дописал программу ,пропустил тело цикла ,помимо writeln(s) до него должно быть что-то я полагаю.
№1
A*(A*B*C+A)
A B C A*B A*B*C (A*B*C+A) A*(A*B*C+A)
0 0 0 0 0 0 0
0 0 1 0 0 0 0
0 1 0 0 0 0 0
0 1 1 0 0 0 0
1 0 0 0 0 1 1
1 0 1 0 0 1 1
1 1 0 1 0 1 1
1 1 1 1 1 1 1
Var a,b,c,d,e:integer;
begin
for a:=100 to 500 do begin
b:=a mod 2; c:=a div 10 mod 10; d:=a div 100;
e:=b+c;
if e=15 then writeln(a);
end;
end.
Алгоритм произведения нечетных на интервале 1 - 11
var
a, b, c: Real;
begin
Write ('Введите a и b: ');
Read (a, b);
c := 2 * a + 6 * b / 3;
WriteLn ('c = ', c);
end.
<span>4^2016 + 2^2018 - это 1 2014 нулей 1 и 2017 нулей. (т.е 2 единицы) 6 это 110.
после вычитания 1 2015 нулей 2014 единиц 010 итого 1 +2015+1 = 2017</span>