Составьте программу, входящую true…

Question

Составьте программу, входящую true, если высказывание является истинным, и false в противном случае: а) сумма цифр трехзначного числа х является четнымчислом; б) треугольник со сторонами a,b,c является разносторонним

Answer 1

35

urfin

16 марта 2023

1: Program P1; Uses Crt; Var x: Integer; BeginClrScr; Write ('Введи x: '); Readln (x); Write (x mod 10+x div 10 mod 10+x div 100) mod 2=0); Readln; End. 2: Program P2; Uses Crt; Var a, b, c: Integer; BeginClrScr; Write ('Введи a, b, c: '); Readln (a, b, c); Write (a <> b) and (b <> c) and (a <> c); Readln; End.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: