Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
ObolenskayaDiana
26.08.2020 18:27 •
Информатика
Даны действительные числа x,y,z если все числа положительны, увеличить их значения в 2 раза; во всех отальных случаях отрицательные числа заменить их модулями, а положительные оставить без изменения.(надо написать программу на паскале)
Показать ответ
Ответ:
oriano
05.07.2020 22:57
Var x,y,z:integer;
begin
write ('введите X: ');
readln(x);
write ('введите Y: ');
readln(y);
write ('введите Z: ');
readln(z);
if (x>0)and(y>0)and(z>0)then
begin x:=x+2; y:=y+2;z:=z+2; end
else begin x:=abs(x);y:=abs(y);z:=abs(z); end ;
writeln('x= ',x);
writeln('y= ',y);
writeln('z= ',z);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Осоаовлво
06.10.2020 10:06
Запишите десятичное число 57 в системе счисления с основанием 4....
Маrprokap
06.10.2020 10:06
Определить количество цифр в числе введенном с клавиатуры visual c++...
АлексаLove06
15.03.2021 21:51
Три с условием if + решение этих . надеюсь на вашу !...
lenusj1975197514
03.05.2023 04:26
Объем свободного места на флешке составляет 62,5 кбацт...
кошка452
19.08.2022 06:38
МНЕ ЭТА Заполни таблицу «Казачьи формирования в Казахстане» Название казачьего войска Уральское казачество Оренбургское казачество Сибирское казачество Семиреченское казачество Территория...
bropomogi
18.09.2020 13:59
Есік обасы Қазақстанның қай аймағына жатады. ...
2346573920316
06.08.2020 02:15
напишите эссе на тему:Молодежь и СМИ У вас есть возможность принять участие в конкурсе школьных сочинений «Журналист - капля эпохи знаний». В связи с этим следует написать эссе на...
ryschowa
06.08.2020 02:15
Судың адам ағзасына пайдасы эссе...
Меньон258
27.05.2022 19:42
Тыңдалым Аралым Әуелеп ұшқан әнім де менің елші екен, Таласып қалмай, анасын егіз емсе тең. Сырдария мен Әмудария қосылып, Қарт Аралыма сәлемін беріп келсе екен. Аралым арман толса...
тамик51
05.02.2021 23:48
Задание 1. Расставьте подписи к изображениям. 1. 2. 3.Варианты ответов: дождь, туман, облака.Задание 2. Установи соответствие между осадками и их определением.Осадки Буква верного...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
write ('введите X: ');
readln(x);
write ('введите Y: ');
readln(y);
write ('введите Z: ');
readln(z);
if (x>0)and(y>0)and(z>0)then
begin x:=x+2; y:=y+2;z:=z+2; end
else begin x:=abs(x);y:=abs(y);z:=abs(z); end ;
writeln('x= ',x);
writeln('y= ',y);
writeln('z= ',z);
end.