Правильный ответ 15, то есть под номером 2
// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
var k:=0;
for var n:=184 to 254 do begin
var m:=n;
while m mod 2=0 do m:=m div 2;
while m mod 3=0 do m:=m div 3;
if m=1 then Inc(k)
end;
Writeln('Количество чисел равно ',k)
end.
<u><em>Результат выполнения программы</em></u>
Количество чисел равно 3
Начало (в овале)
x:=1 (прямоугольник, задаем данные)
x<=5 (условие, в ромбе)
y:=(15x+4)/(9x-2) (прямоугольник)
вывод y (параллелепипед)
x:=x+0.5 (прямоугольник) (после выполнения этого действия возвращаемся на проверку условия и проверяем его до тех пор, пока оно выполняется, как только условие не выполняется идём на конец)
конец (овал)
Var a,b,c,d,x,y: longint;
function NOD(a,b:integer):integer;
begin
while(a<>0) and (b<>0) do
if a>=b then a:= a mod b
else b:= b mod a;
NOD:=a+b;
end;
function NOK(a,b:integer):integer;
begin
NOK:=a*b div NOD(a,b)
end;
Begin
Read(a,b,c,d);
x:=NOK(a,b);
y:=NOK(c,d);
Writeln(NOK(x,y));
end.
35 -4 - принимают участие две стороны: обмен
24 -2 - процессор компьютеру нужен, но графику обсчитывает видеокарта
25 -1 - только графические редакторы относятся программам, остальное железо.