Блок схема приведена в приложенном файле.
Результатом работы программы является вывод на экран:
-если x<= y И y<=z, то выводим значения произведений 2*x, 2*y, 2*z
-иначе выводим модули значений переменых x, y, z.
Var n,i,j: integer;
<span>begin
</span><span> write('n = '); readln(n);
</span><span> j:=Trunc(sqrt(n));
</span><span> </span><span> for i:=1 to j do write(i*i,' ');
</span><span>end.
</span>
n = 100
<span>1 4 9 16 25 36 49 64 81 100
</span>
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function nDigits(n:int64):integer; // если число
begin
Result:=0;
if n<0 then n:=-n;
while n>0 do begin
Result+=1;
n:=n div 10
end
end;
function nDigits(s:string):=s.Length; // если строка
begin
Writeln(nDigits(1234567890123456)); // 16
Writeln(nDigits('123456789012345678901234567890')) // 30
end.
<u>Результат</u>
16
30
Просто это может быть проблема с программной части так и может быть разъём для наушников не работает.
начало
делим на 2
есть остаток нет остатка
возводим в куб возводим в кводрат
конец