Составить программу вычисления суммы/произведения N элементов бесконечного числового ряда. Y=(-3)6(-9)12(-15)…
Формулу произведения знаете? Как изменяется следующий множитель по отношению к предыдущему?
Пишите свой вариант, ошибки посмотрим вместе.
Уважаемая Ксения попробуйте данный код! должно все работать!
uses crt;
var a,b,c,d:integer;
begin
clrscr;
writeln('vvedite A');
readln(a);
writeln('vvedite B');
readln(;
writeln('vvedite C');
readln©;
writeln('vvedite D');
readln(d);
if not odd(a) or not odd( or not odd© or not odd(d) then write('pravda')
else writeln('nepravda');
readln;
end.
Русская версия Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)