tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Даны целые числа а,b,c.сменить
Даны целые числа а,b,c.сменить знак каждого числа и вывести результат на
bbcc2
1 13.09.2019 21:40
0
Ответы
Кираfox15
10.08.2020 19:24
Var a, b, c: Integer;
begin
readln(a);
readln(b);
readln(c);
if a>0 then a:= (a-(a*2)) else a:= Abs(a);
if b>0 then b:= (b-(b*2)) else b:= Abs(b);
if c>0 then c:= (c-(c*2)) else c:= Abs(c);
writeln('a = ',a, ', b = ', b, ', c = ', c);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Brodyga007
17.10.2021 19:18
Как называется принцип, когда один из сайтов может ссылаться на другие сайты...
Артур3009
17.10.2021 19:23
Представьте число 123 в беззнаковом 8-разрядном формате...
Аннапомогите
17.10.2021 19:23
Задание № 1. Найдите значение выражения =1/√2++ Примечание: 1. значения a, b, c – целые числа, которые необходимо ввести с клавиатуры; 2. значение переменной x – вещественное...
PrivPomogite
17.10.2021 19:25
Задача: Требуется написать программу, которая считывает числа n и m, вычитает 100 из n в случае, если оно больше, чем m по абсолютной величине (иначе говоря, по модулю),...
валерия832
29.01.2022 18:46
бітова частота звукового файлу 128 Кбайтів за сек тривалість файлу 6 хв 18 сек знайти обсяг файлу у мегабайтах...
aruzhanormanova
29.01.2022 18:44
Напечатать пять раз свое имя используя оператор цикла. Начальное и конечное значение...
ElviraNice
29.01.2022 18:38
4Для чого використовується в базах даних тип даних Обчислювальний? Які дані можна помістити в поле з цим типом даних? 5Що таке Майстер підстановок? Для чого його використовують?...
NezNeika
29.01.2022 18:37
Наисать приложение, чтобы вышла фигуры как на фоте. Input 7. с++...
dzubaliz
29.01.2022 18:26
Будьласка до іть це в Python потрібно зробити.дуже сиочно...
рол145
29.01.2022 18:24
с задачей в паскале с решением задачи для паскаля : Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое числе, кратных 8,...
Популярные вопросы
Решить . условия в прикрепленном фото...
1
Вобществе существуют противоречивые оценки деятельности суда присяжных:...
3
Перевести в радианы 45°, 160°, 210°; перевести в градусы 2п/5, 3п/4,...
3
Отряд: воробьинообразные-общая характеристика!...
2
Пишу заново,не могла прикрепить фото. нужна с 6...
2
Скажите людей проявивших милосердие и сострадание...
2
Какая электрическая энергия расходуется в течение 5 минут, если напряжение...
3
начав тренировки спортсмен в первый день пробежал 10 км. в следующий...
3
План 3й главы 20 пунктов, произведение герой нашего времяни, выручайте...
1
Решить предел последовательности lim- бесконечность (n+1)! -2n! : 3(n+2)!...
3
begin
readln(a);
readln(b);
readln(c);
if a>0 then a:= (a-(a*2)) else a:= Abs(a);
if b>0 then b:= (b-(b*2)) else b:= Abs(b);
if c>0 then c:= (c-(c*2)) else c:= Abs(c);
writeln('a = ',a, ', b = ', b, ', c = ', c);
end.