Var
B,X:real;
Begin
Write('B = ');ReadLn(B);
Write('X = ');ReadLn(X);
Write('Итоговая стоимость = ',X*B*0.8,' руб.')
End.
Program danya;uses crt;var a,b,c:integer;beginclrscr;for a:=1 to 1000 do begin for b:=1 to 1000 do begin for c:=1 to 1000 do begin if (a+b+c=407) and (a*b*c mod 1000000 = 0) then writeln ('',a,' ',b,' ',c); end; end;end;<span>end.</span>
Часть:процессор, память, монитор
Отдельные устройства:мышь, колонки, сканер, принтер, микрофон
Ответ в файле:::::::::::::::::::::::::::::::::::::::::
русакоу812авыххаывхавыхавхваыхавхавыахвыхаывхаывхавы