А) (X > 0) or (Y > 0) or (Z > 0)
б) (X = 0) and (Y = 0) and (Z = 0)
в) (X > 100) and (Y > 100) and (Z <= 100) or (X > 100) and (Y <= 100) and (Z > 100) or (X <= 100) and (Y > 100) and (Z > 100)
Вот верный код
Program circle_8;
var a,b,c,sum,p,sr: real;
Begin
writeln ('Введите a,b,c');
read (a,b,c);
sum:=a+b+c;
p:=a*b*c;
sr:=(a+b+c)/3;
Writeln ('Сумма: ',sum);
Writeln ('Произведение: ',p);
Writeln ('Среднее арифметическое: ',sr);
End.
Mod - взятие остатка от деления (35 mod 10 == 5); div - взятие целой части от деления (35 div 10 == 3). Пишу сразу заполненные таблицы:
1) а = 23
p s p>0
23 0 true
2 3 true
0 5 false => s = 5
2) a = 32
p s p>0
32 0 true
3 2 true
0 5 false => s = 5
3) a = 109
p s p>0
109 0 true
10 9 true
1 9 true
0 10 false => s = 10
uses crt;
var
i:integer;
begin
clrscr;
for i:=1 to 25 do writeln ('информатика');
readkey;
end.