Задать вопрос
3 декабря, 11:50

Написание разветвляющихся программ на языке Pascal.

Задание №1:Если а>b и b>c тогда а = max+3.

Задание №2:Вывести на экран среднее арифметическое максимального и минимального из 3 чисел.

+2
Ответы (1)
  1. 3 декабря, 15:43
    0
    1) Var a, b, c, max: Integer;

    Begin

    writeln ('Введите a, b, c, max') ;

    readln (a, b, c, max) ;

    if (a>b) and (a>c) then a:=max+3;

    writeln (a) ;

    End.

    2) Var a, b, c, max, min: Integer;

    Begin

    writeln ('Введите 1,2,3 число') ;

    readln (a, b, c) ;

    max:=a;

    if max
    if max
    min:=a;

    if min>b then min:=b;

    if min>c then min:=c;

    writeln ('Среднее: ', (max+min) / 2) ;

    End.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Написание разветвляющихся программ на языке Pascal. Задание №1:Если а>b и b>c тогда а = max+3. Задание №2:Вывести на экран среднее ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы