Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Lisonьka124
07.10.2022 07:23 •
Информатика
Даны действительные числа x, y, z. сколько среди них отрицательных.
Показать ответ
Ответ:
Гольник
05.10.2020 23:07
Program testabc;
var x,y,z:real;
i:integer;
begin
i:=0;
writeln('Введите 3 числа: ');
readln(x,y,z);
if x<0 then i:=i+1;
if y<0 then i:=i+1;
if z<0 then i:=i+1;
Writeln(i,' отрицательных');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
255615
23.01.2022 14:46
Написать программу, которая выводит наэкран ваши ФИО, каждое слово – с новой строки,язык паскаль Заранее...
ulozerova
02.10.2021 12:21
Разрешающая растового изображения...
123QWE123QWE12345678
24.02.2021 20:28
Дана система уравненийКакая программа верно отражает решение данной системы уравнений ?...
ktjy123
25.11.2021 14:50
Программа на си должна решить следующую : массив х состоит из 8 элементов. элементы массива рассчитываются по формуле x[i]=x[i-1]+i, x[0]=0, i=1,n−−−−−. выберите правильное решение....
Катя46811909
08.04.2022 19:16
Вводиться произвольная последовательность целых чисел, заканчивающаяся нулем. Найти четное икратное 5....
BlackDiamondIce
21.07.2021 22:20
HTML5 Как поставить элемент на середину (одинаковое расстояние и справа и слева)? Пример:...
OBOShh
24.08.2022 16:05
ТАБЛИЦА ИСТИННОСТИ ДЛЯ ИНФОРМАТИКОВ Составить таблицу истинности для логического выражения F и соответствующую функциональную схему ЛЭ, изобразить временные диаграммы, характеризующих...
njjk1
31.03.2020 21:58
Подчеркни в словах буквы парных по глухости -звонкости согласных . укажи над ними .какие звуки они обозначают . жан- злой- тень- колос- быль- феня-...
ulyakiissaa
31.03.2020 21:58
Как правильно раскрывать скобки 6 класс объяснение...
Даник1771
31.03.2020 21:58
Сочинение муму в честь кого назван этот рассказ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var x,y,z:real;
i:integer;
begin
i:=0;
writeln('Введите 3 числа: ');
readln(x,y,z);
if x<0 then i:=i+1;
if y<0 then i:=i+1;
if z<0 then i:=i+1;
Writeln(i,' отрицательных');
end.