Даны 3 числа, если они отрицательны, то каждое значение заменить его модулем

@EGOR KARTON · Регистрация: 09.01.2020

Студворк — интернет-сервис помощи студентам

даны 3 числа если они отрицательны, то каждое значение заменить его модулем. Если одно из них отрицательно, то оба значения уменьшить в 2 раза. Нужно из этого составить и программу в pascal и блок-схему.

@Puporev · 10.01.2020, 10:53

Сообщение от EGOR KARTON

даны 3 числа

Сообщение от EGOR KARTON

то оба значения уменьшить в 2 раза.

????

@Cyborg Drone · 12.01.2020, 20:09

Не по теме:

Стоят три человека, и оба в шляпах.

@lilipop477 · 14.01.2020, 14:06

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
program project1;
  uses   wincrt;
 var
   h,l,k,i:integer;
   begin
    begin
     readln(l);
     readln(k);
     readln(i);
     h:=0;
 
       if l>0 then
              if k>0 then
                     if i>0 then
        begin
         write(l-2*l);
         write(k-2*k);
         write(i-2*i);
        end;;;
        if   l<0 then
                begin
                 write(k/2);
                 write(i/2);
                end;
        if l>0 then
               if k<0 then
                      begin
                       write(l/2);
                       write(i/2);
                      end;  ;
        if l>0 then
               if k>0 then
                       if i<0 then
                         begin
                          write(l/2);
                          write(k/2);
                         end;;;
 
    readln;
    end;
 
end.

@bormant · 14.01.2020, 17:34

lilipop477,
неверно, неоптимально.
В условии "даны 3 числа если они отрицательны", а у вас в 12-14 все наоборот.
Модуль -- Abs.
Вложенные if образуют один оператор, не нужно несколько ";".
В условии "Если одно из них отрицательно, то оба значения уменьшить в 2 раза", вероятно "оба других", а у вас в 20-37 все совсем не так.
Совсем забыли про 0, он не отрицательный, но и не положительный.

Пожалуйста.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@EGOR KARTON 0 / 0 / 0 Регистрация: 09.01.2020 Сообщений: 1

	Даны 3 числа, если они отрицательны, то каждое значение заменить его модулем 09.01.2020, 17:25. Показов 893. Ответов 4 Метки нет (Все метки) даны 3 числа если они отрицательны, то каждое значение заменить его модулем. Если одно из них отрицательно, то оба значения уменьшить в 2 раза. Нужно из этого составить и программу в pascal и блок-схему. 0

@Cyborg Drone
	12.01.2020, 20:09
	Не по теме: Стоят три человека, и оба в шляпах. 0

@bormant Модератор 7816 / 4635 / 2837 Регистрация: 22.11.2013 Сообщений: 13,158 Записей в блоге: 1
	14.01.2020, 17:34
	lilipop477, неверно, неоптимально. В условии "даны 3 числа если они отрицательны", а у вас в 12-14 все наоборот. Модуль -- Abs. Вложенные if образуют один оператор, не нужно несколько ";". В условии "Если одно из них отрицательно, то оба значения уменьшить в 2 раза", вероятно "оба других", а у вас в 20-37 все совсем не так. Совсем забыли про 0, он не отрицательный, но и не положительный. Пожалуйста. 0