Задание 18 Параграф 4.3 ГДЗ Босова 8 класс 2023 (Информатика)

Ниже вариант решения задания из учебника Босова, Босова 8 класс, Бином:

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

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

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

var

x, s: integer;

f: boolean;

begin

write(taskВведи трехзначное число > > task);

readln(x);

s := (x div 100) + (x mod 100) + (x mod 100 div 10);

f := (s mod 2 = 0);

writeln(f)

end.

Окно вывода

Введи трехзначное число > > 135

False

Введи трехзначное число > > 435

True