Pascal
найти количество чисел кратных 4 или 7 на промежутке
найти сумму чисел делящихся на 13 среди трехзначных чисел
найти средне арефмитическое чисел кратных 8 на промежутке от a до b

197

241

Посмотреть ответы 1

Ответы на вопрос:

AIDA196

Информатика

4,4(89 оценок)

F=(а & b) v (b & c & a) a b c f false false false false false false true false false true false false false true true false true false false false true false true false true true false true true true true true var a,b,c,f: boolean; beginwriteln('a': 6,'b': 6,'c': 6,'f': 6); for a: =false to true do beginfor b: =false to true do beginfor c: =false to true do beginf: =(a and b) or (b and c and a); writeln(a: 6,b: 6,c: 6,f: 6); end; end; end; end.