программа здесь: http://rghost.ru/43527025
var chislo, summa, proizv:integer;
begin
summa:=0;
proizv:=1;
repeat
Writeln('Input number: ');
Readln(chislo);
if chislo mod 2 = 0 then summa:=summa+chislo;
if chislo <>0 then proizv:=proizv * chislo;
until chislo=0;
Writeln('a) Sum = ', summa);
Writeln('b) Proizvedenie = ', proizv);
readln;
end.
1. Наф-наф . 2. Братьями . 3. чтобы не замёрзнуть .
Число 972 в двоичной системе счисления - 1111001100 его перестановки:
1111001100
0111100110
0011110011
1001111001
1100111100
0110011110
0011001111
1001100111
1100110011
<span>1110011001
наименьшая - </span>0011001111 =207
Program q3; var: a,b,c,D,x1,x2: real;(вводим переменные) readln(a); readln(b); readln(c);(считываем переменные с клавиатуры) D:=b*b-4*a*c;(формула дискриминанта) if(D<0) then writeln('нет решений');(проверяем дикриминант меньше 0) if(D=0) then do begin x1:=-b/2*a; writeln(x1); end; if(D>0) then do begin x1:=(-b+sqrt(D))/2*a; x2:=(-b-sqrt(D))/2*a;(находим корни) writeln(x1); writeln(x2); end; end.
Решения находятся в приложениях.
Красным цветом показаны результаты выполнения алгоритмов.