Program Turbo;
uses CRT;
Var
N,S:integer;
Begin
S:=0;
Write('N = ');
ReadLn(N);
For N:= 1 to N do
S:=S+N;
if S=N*(N+1)/2 then WriteLn('Тождество верно (',S,'=',S,')')
else WriteLn('Тожедство ложно','(',S,'<>',N*(N+1)/2,')')
End.
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
for var i := 0 to Trunc((95 + 100) / 0.5) do
begin
var z := -100 + 0.5 * i;
var y := Abs(z) < 1.5 ? Abs(z) + z * z : 1 / (Abs(z) + 1);
Writeln(z:6:1, y:20:16)
end
end.
<h2>Результаты (приведены начало и конец)</h2><h3>-100.0 0.0099009900990099</h3><h3> -99.5 0.0099502487562189</h3><h3> -99.0 0.0100000000000000</h3><h3> -98.5 0.0100502512562814</h3><h3> -98.0 0.0101010101010101</h3><h3>. . . . . . .</h3><h3> 93.0 0.0106382978723404</h3><h3> 93.5 0.0105820105820106</h3><h3> 94.0 0.0105263157894737</h3><h3> 94.5 0.0104712041884817</h3><h3> 95.0 0.0104166666666667</h3>
Код для проверки
def Avtomat(chislo)
s = chislo.to_s
if s.length == 4
s = s[0..-2] + "1"
end
if s.length == 3
s = (2*(s[0].to_i)).to_s + s[1..-1]
end
sym = [9,0,1,2,3,4,5,6,7,8]
s_new = ""
for k in 0..s.size - 1
s_new += sym[s[k].to_i].to_s
end
return s_new.to_i
end
for i in 100..9999
r = Avtomat(i)
p [i,r] if [159, 261, 1916, 1120, 820, 105, 5100, 9410].include?(r)
end
Вывод
[116, 105]
[160, 159]
[616, 105]
[660, 159]
[1930, 820]
[1931, 820]
[1932, 820]
[1933, 820]
[1934, 820]
[1935, 820]
[1936, 820]
[1937, 820]
[1938, 820]
[1939, 820]
[2230, 1120]
[2231, 1120]
[2232, 1120]
[2233, 1120]
[2234, 1120]
[2235, 1120]
[2236, 1120]
[2237, 1120]
[2238, 1120]
[2239, 1120]
[6210, 5100]
[6211, 5100]
[6212, 5100]
[6213, 5100]
[6214, 5100]
[6215, 5100]
[6216, 5100]
[6217, 5100]
[6218, 5100]
[6219, 5100]
В перечисленное не попали числа <span>261 1916 9410
Но если брать что "</span>Автомат получает на вход трёхзначное десятичное число<span>", т.е 4 значные не подаются на вход то не войдут числа
</span><span>261 1916 1120 820 5100 9410 </span>