Введите с клавиатуры три числа если А>В>С>0, то замените все числа их квадратами и выведите результаты на экран.

+1
Ответы (1)
  1. 29 июня, 22:14
    0
    uses crt;

    var a, b, c, i, s : integer;

    begin

    readln (a, b, c);

    for i:=1 to 1 do begin

    if (c>0) and (b>c) and (a>b) then begin

    a:=sqr (a); b:=sqr (b); c:=sqr (c);

    writeln ('A=', a,'; 'B=', b,'; 'C=', c);

    break;

    end;

    if (a0) and (c<0) and (ab) and (bc) and (ac) then begin

    if (a>b) and (a>c) then begin b:=a; c:=a; writeln ('A=', a,'; 'B=', b,'; ' C=', c); break; end;

    if (b>a) and (b>c) then begin a:=b; c:=b; writeln ('A=', a,'; 'B=', b,'; ' C=', c); break; end;

    if (c>a) and (c>b) then begin a:=c; b:=c; writeln ('A=', a,'; 'B=', b,'; ' C=', c); break; end;

    end;

    s:=a+b+c;

    writeln ('Сумма ', s);

    end;

    end.
Знаешь ответ на этот вопрос?
Новые вопросы по информатике
Напистаь программу удаления из строки чётных или нечётных чисел
Ответы (1)
Орган человека, воспринимающий вкусовую информацию 4 буквы
Ответы (1)
а) Выбери название действия, которое былс совершено при форматировании текста 1. ТЕКСТ 1 Декодирование - это восстановление информации по её кодированной форме ТЕКСТ 2 Декодирование - это восстановление информации по её кодированной форме ТЕКСТ 3
Ответы (1)
Скорость передачи данных через ADSL-соединение 128000 бит/с. Сколько времени займет передача файла объёмом 5 Мбайт по этому каналу? а) 328 б) 41 в) 5,5 г) 40
Ответы (1)
Если при наборе текста все буквы отображаются прописными то это означает что нажатие клавиша 1. Num Lock 2. Caps Lock 3. F1
Ответы (1)
как открыть командную строку
Ответы (1)
Сканируется цветное изображение размером 25X25 см. Разрешающая способность сканера 300X300 dpi, глубина цвета-3 байта. Какой информационный объём будет иметь полученный графический файл.
Ответы (1)
Найти сумму целочисленного массива В, состоящего из 15 элементов
Ответы (1)
Выберите (отметьте галочкой) параметры, устанавливаемые при задании параметров страницы: ориентация стиль размер шрифта размер бумаги номера страниц поля междустрочные интервалы отступы выравнивание абзацев начертание
Ответы (1)
Укажи целое, частью которого является указанный объект. а) Окно - Дом_ Клавиша - Клавиатура_ Экран _ Телевизор, компьютер Системный блок - Компьютер Буква "Б" буква "В" б) Придумай объекты и заполни схему - часть -
Ответы (1)