Номер 18, страница 173 - гдз по информатике 8 класс учебник Босова, Босова

Вопросы и задания. Параграф 4.3. Программирование линейных алгоритмов. Глава 4. Начала программирования на языке Паскаль - номер 18, страница 173.

Условие.

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

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

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

Решение.

а)
var
x: integer;
q: boolean;
begin
writeln ('Введите трехзначное число');
readln (x);
q:=(((x mod 10)+(x div 100)+(x mod 100 div 10))mod 2 = 0);
writeln (q);
end.
б)
var
a, b, c:integer;
q:boolean;
begin
writeln ('Введите длины сторон треугольника');
readln (a, b, c);
q:=(not (a=b) or not (c=b) or not (a=c));
writeln (q);
end.