tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Дано число. Если оно положительное,
Дано число. Если оно положительное, то поменять его знак на противоположный. Написать программу на языке паскаль
zelenskiy10000
2 12.05.2021 21:47
6
Ответы
lebedkova81
11.06.2021 21:49
var x : real;
begin
readln(x);
if x > 0 then
x := x * -1;
writeln(x:2:2);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Максек1337
21.12.2020 19:59
Десятичное число 55 в некоторой системе счисления записано как 2001. Определи основание этой системы исчесления. ...
Retro2122
21.12.2020 19:59
с проблемой на бесконечном поле имеется стена длины отрезков стены неизвестны. истина состоит из одного вертикального и 3 равных горизонтальных отрезков отрезки стены расположены...
ivanovanadusa03
29.07.2019 08:50
Паскаль как вывести 1 * 3 * 5 * место которых чисел которое делятся на 2 ставим * итак до 30...
oxanabondarenkozv5l4
29.07.2019 10:10
Истинность двух высказываний: гонщик а участвует в ралли, а гонщик в не участвует в ралли и из двух гонщиков в и с участвует в ралли только один означает участие в ралли...
NeekaFox
29.07.2019 10:10
Составить алгоритм на языке блок схем для решения следующей : определить, является ли треугольник с заданными сторонами a,b,c равнобедренным....
popoposa
29.07.2019 10:10
Какие форматы файлов используются для хранения оцифрованного звука...
Nina1211065
27.09.2019 05:10
Задана последовательность из n вещественных чисел. определить сумму и количество элементов последовательности, меньших заданного значения d. : средствами языка pascal напишите...
vladplotnikov2
27.09.2019 05:10
Вчем ошибка (калькулятор на питоне) пишет что тут( if c ! = 0 : print (a/b) a = float( c = input() b = float( if c == - : print (a-b) elif c == / : if c ! = 0 : print (a/b)...
Timoxa565
10.11.2021 14:05
Сколько единиц в двоичной записи 1073...
tuzor
10.11.2021 14:30
ТЕСТ ПО ИНФОРМАТИКЕ ЛЕГКИЙ...
Популярные вопросы
Три машинистки должны напечатать 510 страниц. Вторая машинистка напечатала...
1
20 15Sentabr oyida yog inli kunlar 9kun, oktabr oyida 16 kun, 10noyabr...
3
Укр літ терміново . Написати твір :Кого із персонажів ви б хотіли мати...
3
Сообщение на тему лишайники...
1
Текст 2 Короткий метро длинной жизниВ конкурсе короткометражного фильма...
1
Машина шла от города до деревни 6 часов со скоростью 71 км в час. На лбратныйй...
3
Творча робота на тему Сіроманець,, будь ласка завтра кр. ів...
2
Определите ЭДС наведенной в обмотке потребителя энергии z2 если задан...
3
Запишите в легенде названия складчатых поясов, выделенныхна карте штриховкой....
3
1394. Запишите уравнения прямых АВ и CD, изображенных на ри- сунке 10.5,...
3
var x : real;
begin
readln(x);
if x > 0 then
x := x * -1;
writeln(x:2:2);
end.