profile
Опубликовано 11 месяцев назад по предмету Информатика от pahan74

. Составьте программу (полный текст программы) для решения следующей задачи. Введите с клавиатуры три числа: А, В, С. Если все они четные, то найдите и выведите на экран их сумму. Если все они нечетные и A>B>C, то определите и выведите значения наибольшего и наименьшего из чисел. Иначе, выведите числа без изменения. Фрагмент программы: if (a mod 2 = 0) and (b mod 2 = 0) and (c mod 2 = 0) then begin S:=a+b+c; writeln('сумма равна ', S); end; if (a mod 2 <> 0) and (b mod 2 <> 0) and (c mod 2 <> 0) and (a>b) and (b>c) then begin writeln('наибольшее число ', A); writeln('наименьшее число ', C); end else writeln('a= ',a,' b= ', b, ' c= ',c);


  1. Ответ
    Ответ дан Deviance

    var 

    a,b,c,s:integer;

    begin

    readln(a,b,c);

     if (a mod 2 = 0) and (b mod 2 = 0) and (c mod 2 = 0) then

    begin

    S:=a+b+c; writeln('сумма равна ', S);

    end;

    if (a mod 2 <> 0) and (b mod 2 <> 0) and (c mod 2 <> 0) and (a>b) and (b>c) then

    begin

    writeln('наибольшее число ', A);

    writeln('наименьшее число ', C);

    end;

    else

    writeln('a= ',a,' b= ', b, ' c= ',c);

    readln;

    end.