За умови а<>0 і с<>0 і x<>0 вихідна величина s = a*c*x інакше s=a+c+x.
Для запису умов використовуємо логічну операцію and (i).
Приведемо програму:
Program suma;
Var a, c, x, s:integer;
begin
readln(a,c,x);
If (a<>0)and(c<>0)and(x<>0) then s:=a*c*x else s:=a+c+x;
Writeln(s);
Readln;
End.
2.12.Відомо,що фотоапарат має а Мбайт пам’яті. Дмитро зробив х1 портретів звірят, кожен з яких займає у1 Кбайт пам’яті, х2 фотографій дивних рослин, на кожну з яких необхідно у2 байтів пам’яті та х3 групових знімків членів експедиції, дерев та звірят, що займали у3 Мбайт кожен. Визначте, чи залишилася вільна пам'ять у фотоапараті для фотокарток.