A) False
b) False
c) True
d) False
<u>Ответ - с</u>
var a:integer;
begin
for a:=1 to 10000 do
begin
if (a mod 10 =8)and(a mod 3 =0) then writeln(a);
end;
end.
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadInteger('a=');
Writeln(1.To(a).Aggregate(int64(1),(p,q)->p*q))
end.
<u>Пример</u>
a= 20
2432902008176640000