1 и 0 = 0
0 или 1 = 1
не 1 = 0
Ответ: 0
Program pascal;
var n :longint;
begin
writeln ('Введите число:');
read(n);
if n>0 then
if n mod 10 =0 then writeln('Число ',n,' кратное 10')
else
writeln('Число ',n,' не кратное 10');
end.
SELECT * FROM "Зоопарк" WHERE "количестве пищи в день" BETWEEN 5 and 10
Текстовые файлы можно изменять и удалять
Begin
var a := ReadArrInteger('Первый массив: ',10);
var b := ReadArrInteger('Второй массив: ',10);
write('Наибольшее число в');
if a.Max > b.Max then write(' первом')
else write('о втором');
writeln(' массиве.');
end.