Конец перед первым выполнением цикла необходимо задать начальное значение «сумма» = 0 и затем nраз вычислять «сумма» при различных значениях xi и yi, где i принимает последовательно значения 1,. ., n и используется цикл с постусловием. в схеме алгоритма заменим слово «сумма» буквой s. вычислить факториал м! = 1х2хзх (м - 1)х м факториал вычисляется как произведение от 1 до м, аналогично предыдущему вычислению суммы. начальное значение переменной «факт»=1, если это значение задать равным нулю, то и результат будет нулевым.
Спасибо
Ответ дал: Гость
program yravnenie;
var a,b,c,d,x1,x2,p,q: real; begin repeat write('a= '); readln(a); if a=0 then writeln('error: a=0. enter another value'); until a< > 0; write('b= '); readln(b); write('c= '); readln(c); p: =b/a; q: =c/a; d: =sqr(p/2)-q; if d> 0 then begin writeln('x1 = ',-p/2-sqrt(d): 0: 5); writeln('x2 = ',-p/2+sqrt(d): 0: 5); end else if d=0 then writeln('x1 = x2 = ',-p/2: 0: 5) else begin writeln('x1 = ',-p/2: 0: 5,'-i*',sqrt(-d): 0: 5); writeln('x2 = ',-p/2: 0: 5,'+i*',sqrt(-d): 0: 5); end; readln; end.
Ответ дал: Гость
program msd; uses crt; var a,l,proiz,b,i: longint; beginclrscr; readln(a); proiz: =1; while true do beginl: =a mod 10; a: = a div 10; if odd(l) = true thenproiz: =proiz*lelseb: =b+1; i: =i+1; if a = 0 then break; end; if b = i then writeln('0')elsewriteln(proiz); if (proiz> 99) and (proiz< 1000) then writeln('da')else writeln('net'); readkey; end.
Популярные вопросы