Uses crt, math;
var n: extended;
var x: extended;
var s: extended;
var f: extended;
var t: extended;
begin
{ вводим значения }
writeln('Enter n:'); readln(n);
if n > 0 then begin
{ номер последовательности }
x := ceil((sqrt(1.0 + 4.0 { 8.0 } * n) - 1.0) / 2.0);
{ количество элементов всех последовательностей }
s := x + x*x;
{ s := s / 2; }
{ относительный номер элемента в последовательности }
f := x * 2 - (s - n);
if f <= x then begin
t := 1 + x - f;
end;
if f > x then begin
t := f - x;
end;
{ выводим результат }
writeln('t = ', t);
{ задержка }
readln(n);
end;
end.
CLS
INPUT a, b, c, d
IF a = 0 AND b * c * d <> 0 OR b = 0 AND a * c * d <> 0 OR c = 0 AND a * b * d <> 0 OR d = 0 AND a * b * c <> 0 THEN
PRINT "Pravda"
ELSE
PRINT "Nepravda"
END IF
<em><u>Тестовое решение:</u></em>
? 4, -7.2, 0, -6
Pravda
Крыло птицы - крыло самалёта по функции
холодная вода- холодный взгляд по сходству ошушений
19 битов каждый знак 1 бит