tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Вводится последовательность ненулевых
Вводится последовательность ненулевых чисел, 0 — конец последовательности. определить, сколько раз последова- тельность поменяет знак.
svetaalekperova
2 21.07.2019 18:30
2
Ответы
avagimyan2002
03.10.2020 09:48
var a,b,k:integer;
begin
write('a=');readln(a);
k:=0;
while a<>0 do
begin
b:=a;
write('a=');readln(a);
if a*b<0 then k:=k+1;
end;
writeln('k=',k);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
olardaniil2017
07.09.2019 18:30
Запросы к поисковому серверу. для каждого запроса указан его код — соответствующая буква от а до г. запишите в таблицу коды запросов слева направо в порядке убывания...
Qurin
07.09.2019 18:30
2^16 байтов перевести в килобайтов, 1/4 мегабайт перевести в килобайты...
Экфолорд
10.02.2022 03:00
Мама спекла пиріг з яблуками, в якому було 60% яблук, а решта - тісто. При цьому 30% тіста становили яйця і цукор, решта - борошно. Вся маса пирога дорівнює m кг....
Mysicista
10.02.2022 02:49
Три друга - Иван, Петр и Николай - дополнительно занимаются физикой, математикой и английским языком различным образом - в заочной интернет-школе, на факультативе,...
CookieMonster131
08.02.2021 23:33
Вася написал такую функцию: Pascal: function f(n:integer):integer; var s: integer; begin s := 1; while n 0 do begin s := s * (n mod 10); n := n div 10; end; f :=...
Borisovilya
08.02.2021 23:34
У Айбара есть сад, который состоит из K подряд идущих грядок. В саду живут n кроликов. Каждый кролик находится в одной из грядок...
marina19761
08.02.2021 23:34
Пацаны очень нужно буду очень благодарен...
няшкаморскаясвинка
08.02.2021 23:37
написать программный код! В массиве хранятся результаты 25 спортсменов, участвовавших в лыжной гонке. Программа выводит с компонента ListBox порядковые номера трёх...
12abgh
12.04.2020 18:13
В цветовой модели RGB для кодирования одного пикселя используется 3 байта. Фотографию размером 1772×3543 пикселей сохранили в виде несжатого файла с использованием...
Merlin131
12.04.2020 18:13
Дан код с номером. Определи, какой это символ: управляющий или изображаемый. Код с номером 60....
Популярные вопросы
Швидкості візків до взаємодії дорівнюють нулю (рис.1). Після...
2
1.Человек прислоняется к стене с силой 110 Н. и давит на нее...
3
Спишите. Подчеркните придаточные предложения . Задайте к ним...
3
памогите это очень важно 24355:5 умаляю вас решите этот пример...
2
Якби вас запросили бути посередником у залагодженні конфлікту...
3
Одна сторона параллелограмма равна 36 см, а вторая — на 15 см...
2
Верно ли расставлены знаки ( запятые): Несмотря на свое ранение,...
2
находясь в неподвижной байдарке, турист в направлении берега...
2
Найти решение матричного уравнения A^−1A^2XB^−1 = E...
1
ДА 1)При электризации стекла о шелк в стекле ...увеличивается...
2
begin
write('a=');readln(a);
k:=0;
while a<>0 do
begin
b:=a;
write('a=');readln(a);
if a*b<0 then k:=k+1;
end;
writeln('k=',k);
end.