Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Whitewarrior98
22.07.2022 03:35 •
Информатика
Вводится последовательность ненулевых чисел, 0 — конец последовательности. определить, сколько раз последова- тельность поменяет знак.
Показать ответ
Ответ:
andreymarkov2090
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.
0,0
(0 оценок)
Популярные вопросы: Информатика
СветланаП
29.01.2023 13:07
Написать программу на СИ : Дана последовательность целых чисел, оканчивающаяся нулем. Определить, является ли эта последовательность арифметической прогрессией...
katystolbova
30.09.2020 07:32
У каво нибуть есть фаил с ответом на данную работу скиньте...
kot289
22.07.2021 05:40
Создайте массив из 5 элементов с генератора случайных чисел с элементами от 0 до 100 и выведите его на экран. Отсортируйте массив по убыванию....
niknik14
31.12.2020 18:56
Между населёнными пунктами А, В, С, D, Е построены дороги, протяжённость которых (в километрах) приведена в таблице: Определите длину кратчайшего пути между пунктами А и E. Передвигаться...
Ivangggg
17.08.2022 13:38
Универмаге за 2 дня продали 100 детских костюмов по одинаковой цене в первый день продали костюмы получили а рублей во второй день с рублей запиши выражение которое обозначает силу...
marinedzhan000
17.08.2022 13:38
Какие меры предпринемал пётр 1 для школьных прогульщиков? sos...
andrognew2018
17.08.2022 13:38
Напишите прилагательные слов trend, pierce, compete...
iirunka153
17.08.2022 13:38
Прочитайте текст. кто из спорящих прав? разгорелся между любой и верой спор. мигом их окружили почти все из класса. ведь спорят-то о вежливости, а это касается всех! пришла люба к...
ГораСлез
17.08.2022 13:38
Вписать в таблицу названия растений нарисовать их плоды закрасить кружки соответсвенно распространения синий-ветром, красный животными и человеком...
Манюня589
17.08.2022 13:38
Вавтобусе ехали 17пассажиров.на остановке сошли 5 пассажиров.сколько пассажиров осталось в автобусе?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.