• Составьте программу в Паскаль, вводящую true, если высказывание является истинным, и false в противном случае.

    а) Сумма цифр трёхзначного числа х является чётным числом.

    б) Треугольник со сторонами a, b, с являются равносторонним.

     

     

     

     

Ответы 1

  • uses crt;

    var a,b,c,n,n1:integer;begin

    readln(n);n1:=(n div 100)+((n div 10) mod 10)+(n mod 10);if (n1 mod 2 = 0) then write('true'); 

    if (n1 mod 2 = 1) then write('false'); readln(a,b,c);if (a=b) and (a=c) and (b=c) then write('true')else write('false')end.

  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years