<em>// PascalABC.NET 3.2, сборка 1367 от 20.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var t:integer;
var k:=0;
repeat
Read(t);
if t.ToString.Where(c->c='5').Count=2 then k+=1
until t=0;
Writeln('Количество чисел с двумя пятерками равно ',k)
end.
А) (x1 + x2) / 2
b) k = k - 1
c) i = i + 1
d) z = x + y + z
Ответ: 30
Эти условия не должны соблюдаться:
x>=31
x<30
Program enot;
VAR p:real;
i,n:integer;
BEGIN
p:=1;
read(n);
for i:= n downto 1 do
p:= p*i;
writeln(p:4:2);
<span> end.</span>
б в д е, поскольку отдельно взятая цифра в числе не может превышать основание системы счисления. Например, вариант А ошибочен, так, как основание равно 6, а это значит что наибольшей цифрой в числе должно быть 5