Составить линейную программу печатающую значение True, если указанное высказывание является истинным и False в противном случае: сумма цифр данного трехзначного числа n является чётным числом — Pascal(Паскаль)

var f:boolean;
     n:word;
begin
repeat
write('Введите трехзначное число n=');
readln(n);
until(n>99)and(n<1000);
f:=((n div 100)+(n div 10 mod 10)+(n mod 10)) mod 2=0;
write(f);
readln
end.

Похожие записи/страницы:

Leave a Comment

64 + = 74