Если условие записано верно, то таблица истинности имеет такой вид (но само выражение не тождественно истинное!):
Ответ:
program zadaca;
var
i:integer;
a:real;
begin
for i:=1 to 4 do
begin
Writeln('Введите число √',i);
Readln(a);
if a/3=trunc(a/3) then
Writeln('Число номер ',i,' со значением ',a:5:1,' кратно е трьом');
end;
readln;
end.
На фото результат программы (консоль) с любыми подобранными значениями.
17/2=8 остаток 1
8/2=4 остаток 0
4/2=2 остаток 0
2/2= 1 остаток 0
Получается 10001 (2)= 17(10)
цифр 0 в двоичном представлении 3
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
Writeln('Сумма элементов, кратных 3, равна ',a.Where(x->x mod 3 =0).Sum)
end.