<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>№8</u>
begin
var (N,s):=(ReadInteger,0);
while N>0 do begin
s+=N mod 10;
n:=N div 10
end;
Writeln(s)
end.
<u>Пример</u>
15023
11
<u>№9</u>
begin
var (N,k):=(ReadInteger,0);
while N>0 do begin
if N mod 10=0 then k+=1;
n:=N div 10
end;
Writeln(k)
end.
<u>Пример</u>
1430020
3
Мак мук лук; лор сор сур сук
Извиняюсь за полусишный код
procedure swap(var a:integer; var b;integer)
var c:integer;
begin
c := a; a := b; b := c;
end;
function nod(a, b:integer):integer;
begin
while b <> 0 do
begin
writeln(a, ' ', b); // тут трассировка выводится
a = a mod b; swap(a, b);
end
end;
begin
writeln(nod(128,56));
end.
1. 1048576
2. 536870912
3. 16384
4. 8796093022208
1.512 Гб
2.1 Мб
3.8 Петабайт
4.64 Терабайт
В EXCEL заполни первый столбец, как показано на рисунке
В ячейку B1 занеси формулу, как показано в строке формул
Корень будет на том промежутке, где функция МЕНЯЕТ знак, у нас это промежутки:
-3,00 -2,50
0,00 0,50
и
2,50 3,00
Теперь сделай эти промежутки "МЕЛЬЧЕ", например
-3,0
-2,9
-2,8 и т.д и опять смотри, где функция СМЕНИТ знак....
И так далдьше