Ответ.
Меню
Задать вопрос!
Вход
Регистрация
Задать вопрос!
Меню
Все категории
Фотография и видеосъемка
Знания
Другое
Гороскопы, магия, гадания
Общество и политика
Образование
Путешествия и туризм
Искусство и культура
Города и страны
Строительство и ремонт
Работа и карьера
Спорт
Стиль и красота
Юридическая консультация
Компьютеры и интернет
Товары и услуги
Темы для взрослых
Семья и дом
Животные и растения
Еда и кулинария
Здоровье и медицина
Авто и мото
Бизнес и финансы
Философия, непознанное
Досуг и развлечения
Знакомства, любовь, отношения
Наука и техника
русик0308
3 года назад
7
Дано целое число. Написать программу, которая заменяет его на 0, если число отрицательное, и выводит его без изменений, в против
ном случае.
Знания
Информатика
Ответить
Комментировать
Отправить
1
ответ:
borsch123
3 года назад
0
0
Вот такая программа (для PascalABC.NET). И еще ты не сказал, что делать с числом, если оно равно 0?
var a,x:integer;
begin
read(a);
if a<0 then x:=0 else x:=a;
writeln(x);
end.
Не забудь откомпилировать перед проверкой.
Отправить
Читайте также
Сколько единиц в двоичной записи десятичного числа 510
Tomtit [17]
111111110,,,,,,,,,,,,,,,,,,,,,
0
0
4 года назад
Прочитать ещё 2 ответа
Два числа переведите в восьмеричную систему счисления методом деления целой части и умножения дробной1)218,212)93,14
Kyrdykun [7]
Дели числа на 2 пока будет не возможно пото посчитай 2 и
все
0
0
3 года назад
Текст набранный на пк умещается на лазерном диске 466 раз каков его объем
BARSIK-5 [35]
100 гб данного диска
0
0
3 года назад
Не понимаю я. Составьте для чертёжника алгоритм рисования равнобедренного треугольника, если известны координаты концов отрезка,
riv1 [6]
Сместиться в точку (2;1)
опустить перо
сместиться в точку (4;6)
сместиться в точку (6;1)
сместиться в точку (2;1)
0
0
3 года назад
Помогите пожайста с информатикой, ничего в ней не смыслю. Нужно составить программу, которая с клавиатуры вводит любое целое чис
СГАА
Var
x: integer;
begin
Write('Введите число ');
Readln(x);
Writeln('Утроенное значение равно ', 3 * x)
end.
0
0
2 года назад
Смотрите также:
Для записи текстового сообщения объёмом 9752 байта использовался алфавит мощностью 256 символов. Сколько страниц занимает сообще
13
·
2 ответа
Дана программа: Program Primer; Var M,result : real; Begin Writeln('Введите значения переменной M'); Write('M='); Readln(M); Res
13
·
1 ответ
После полета Юрия Гагарина в 1961 практически каждый мальчик СССР хотел стать космонавтом. Прошло уже более полувека, но професс
10
·
1 ответ
Какие преимущества мы получаем, объединив компьютеры в сеть? 1совместное использование внешних устройств 2упрощение обмена данн
12
·
1 ответ
Помогите заполнить двумерный массив в паскале!
6
·
1 ответ
Вставьте пожалуйста слова по смыслу;цифровой компьютер, аналоговый компьютер, абак, принтер, джойстик Одним из первых устройств,
5
·
1 ответ
СРОЧНО Переведите число 126 из десятичной системы счисления в двоичную систему счисления. Сколько значащих нулей содержит получе
6
·
1 ответ
Ребята кто может рештте 5 в информатики
5
·
1 ответ
VBA. По заданным значениям a, x и n найти сумму ряда.
5
·
1 ответ
Определите будет ли заданное число нечетным трехзначн
7
·
1 ответ
×
Добавить ответ
Отправить
×
Вход
E-mail
Пароль
Запомнить меня
Войти
Не зарегистрированы?
Пройти быструю регистрацию
×
Регистрация
Ваше имя
E-mail
Пароль
Зарегистрироваться
close
Вход
Регистрация
Задать вопрос!