Предмет: Информатика,
автор: MASta666
Вводится последовательность из n произвольных чисел . определить сколько последовательность меняет знак
Ответы
Автор ответа:
0
Program m;
Var old, new: real;
k: integer;
Begin
Write('vvod x');
Readln(old);
Write('vvod x');
Readln(new);
X:=0;
Repeat
If new*old<0 then k:=k+1;
Old:=new;
Write('vvod x');
Readln(new)
Until new=0;
If k>0 then
Writeln('posledovatelnost menyaet znak', k, 'raz')
Else Writeln('posledovatelnost ne menyaet znak');
End.
Var old, new: real;
k: integer;
Begin
Write('vvod x');
Readln(old);
Write('vvod x');
Readln(new);
X:=0;
Repeat
If new*old<0 then k:=k+1;
Old:=new;
Write('vvod x');
Readln(new)
Until new=0;
If k>0 then
Writeln('posledovatelnost menyaet znak', k, 'raz')
Else Writeln('posledovatelnost ne menyaet znak');
End.
Похожие вопросы
Предмет: Информатика,
автор: tulchindiana
Предмет: Қазақ тiлi,
автор: gulmiraergalieva2
Предмет: Музыка,
автор: mtanyancat
Предмет: История,
автор: vetalkistanov
Предмет: Математика,
автор: zadautepbergen