Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Onalbaeva00
25.08.2022 18:38 •
Информатика
Решить : даны числа n1, n2, n3, n4. те числа которые являются положительными, заменить нулями. (язык программирования pascal).
Показать ответ
Ответ:
алина3821
02.10.2020 05:04
Var n1,n2,n3,n4:real;
begin
writeln('Введите n1, n2, n3, n4');
readln(n1,n2,n3,n4);
if n1>0 then n1:=0;
if n2>0 then n2:=0;
if n3>0 then n3:=0;
if n4>0 then n4:=0;
writeln(' n1= ', n1, ' n2= ', n2, ' n3= ', n3, ' n4= ', n4);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
vavkina2016
19.03.2023 06:44
Программа на c++ напишите программу, которая вводит два целых числа и находит их произведение, не используя операцию умножения. учтите, что числа могут быть отрицательными....
alexalevdorovic
06.02.2020 03:25
Кем и когда был введён термин гипертекст...
Valerivaleeva
11.06.2021 23:40
Информационный объём текста,подготовленного с компьютера,равен 3,5 кб. сколько символов содержит этот текст? плээс : с...
ibg478
28.07.2022 12:45
Дана последовательность 5,9,13, . составьте блок-схему алгоритма для подсчета числа слагаемых, сумма которых равна 324. блок схему не надо.программу в паскале через...
FUpp
22.01.2022 12:19
Каков информационный объем текстового документа, состоящего из 50 страниц, а на каждой странице 560 символов текста и рисунок объемом 3 кбт?...
Аня34566
22.01.2022 12:19
Найдите основание х системы счсисления, если а) 14(х)=9(10) б) 2002х=130(10)...
Tamalova5
26.06.2022 22:43
Сделайте сайт через блокнот тема «мировые информациионные войны»...
илья1947
04.06.2022 14:23
Кто может ввести программу в tp (турбо паскаль), и написать получившийся результат? ...
LinaLafe
18.06.2022 05:14
Разгадать ребус два кирпича и ***...
M10041999
16.03.2022 21:16
Укажите две области применения где важнейшей характеристикой является объем видеопамяти...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
writeln('Введите n1, n2, n3, n4');
readln(n1,n2,n3,n4);
if n1>0 then n1:=0;
if n2>0 then n2:=0;
if n3>0 then n3:=0;
if n4>0 then n4:=0;
writeln(' n1= ', n1, ' n2= ', n2, ' n3= ', n3, ' n4= ', n4);
end.