1. Информатика
  2. Написать программу в PascalABC:

Написать программу в PascalABC:
Определить есть ли среди чисел х, у, z, хотя бы одно отрицательное, если среди них есть отрицательные то посчитать их кол-во

Gulnurrakulova1981 Gulnurrakulova1981    1   18.03.2020 06:18    3

Ответы
svetaabc svetaabc  12.10.2020 00:40

begin

 var count := 0;

 var num := 0;

 repeat

   var a := ReadInteger;

   Inc(num);

   if a < 0 then

     Inc(count);

 until num = 3;

 Println('Количество отрицательных: ', count);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Polybel Polybel  30.03.2019 23:00
Составить программу, печатающую на экране следующую фигуру: * ** *** буду вам !...
VladislavaForster VladislavaForster  30.03.2019 21:19
Составить алгоритм вертикальная ломаная (арг цел n, арг вещ а) , рисующий ломаную, повернутую вокруг начального положения пера на 90° по часовой стрелке.программа кумир...
ilonasusak77 ilonasusak77  30.03.2019 21:22
Файл размером 10 кбайт передается через некоторое соединение со скоростью 512 бит в секунду. определите насколько секунд быстрее можно передать этот же файл через другое соединение...
yroyakap0doki yroyakap0doki  05.10.2019 17:40
Автомат получает на вход двузначное десятичное число. по полученному числу строится новое десятичное число по следующим правилам. 1. вычисляются два числа - сумма цифр старшего и...
homonorolla homonorolla  05.10.2019 17:40
Дан файл, который содержит целые ненулевые числа, которые оканчиваются нулем. найти количество чисел, которые не делятся на 3;...
Aiauka11 Aiauka11  10.11.2020 12:48
Где нужно делать презентации на Windows 10​...
gzemdihanova gzemdihanova  10.11.2020 12:48
Ассемблер.Обработка символьной информации с функций DOS. Ввести с клавиатуры строку. Преобразовать все буквы в числа. Построить криптограмму (вместо букв вывести на экран соответствующие...
jasmina14 jasmina14  10.11.2020 12:49
В многоподъездном доме 16 этажей по 4 квартиры на каждом этаже в одном подъезде. Сообщение о том, что Алексей живет в квартире номер сто девяносто девять, содержит 9 бит информации....
алекс858 алекс858  10.11.2020 12:49
экрана вводится строка. Посчитайте количество МАЛЕНЬКИХ латинских букв в ней. Выведите его на экран. Постройте НОВУЮ строку, из которой удалены все БОЛЬШИЕ латинские буквы. Выведите...
leedercools leedercools  10.11.2020 12:50
Что такое интернет-формы? A) Форматы публикации данных, предназначенные для отображения информации, которая часто меняетсяБ) Ссылки, сохраненные с интернет-сервисовB) Веб-страницы...

Популярные вопросы