Uses crt; var a,b,c: boolean; begin clrscr; for a: =false to true do for b: =false to true do for c: =false to true do writeln(a: 6,b: 6,c: 6,(not a) or (not b) or c: 6); readkey end. результат выполнения программы: false false false true false false true true false true false true false true true true true false false true true false true true true true false false true true true true
anton1969026203
25.10.2020
Var a1,b1,n,d: integer; sa: real; begin writeln('vvedite perviy element arefmeticescoy progressii='); readln (a1); writeln('skoliko cisel'); readln(n); writeln('raznosti arefmeticescoy progressii='); readln(d); writeln ( 'summa arefmeticescoy progressii='); sa: =((2*a1+(n-1)*d)/2)*n; write(sa); readln; end.var i,j,q,n: integer; z,b,b1,sg: real; beginwrite('vvedite perviy element geometricescoy progressii'); read(b1); writeln('q='); readln(q); writeln('n='); readln(n); for i: = 1 to n do beginz: =i; b: = b1 *power(q,z-1); sg: = sg + b; end; writeln('summa geometricescoy progressii=',sg); readln; end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
По информатики вопрос два факта относящихся к свойствам объектов
книга " алиса в стране чудес"
свойства: автор л.кэролл
жанр: художественная