Uses crt; var summa:real; begin clrscr; write('Введите сумму покупки'); readln(summa); if summa>1000 then begin writeln('Вам предоставляется скидка 10%'); writeln('Сумма покупки с учетом скидки: ',summa*0.9:0:2,' гривен.'); end else writeln('Скидка не предоставляется'); write('Для завершения нажмите Enter'); readln end.
Uses crt; var e:array[1..3,1..7] of integer; s,max,n,m:integer; index,sum:integer; procedure max_el; begin max:=e[1,1]; sum:=0; index:=0; for n:=1 to 3 do begin for m:=1 to 7 do begin if e[n,m]>max then begin max:=e[n,m]; index:=m; end; end; end; for n:=1 to 3 do begin if e[n,index]<0 then begin sum:=sum+e[n,index]; end; end; writeln('naibolwiy element = ',max,' summa otricatelnyh= ',sum); end; begin clrscr; writeln('elementy massiva'); writeln; randomize; for n:=1 to 3 do begin for m:=1 to 7 do begin e[n,m]:=random(100) -50; write('',e[n,m],' '); end; writeln; end; writeln; writeln; max_el; readkey; end.
Матричный принтер содержит печатающую головку с 9 или 24 иголками. Иголки нажимают на ленту с красящим слоем и оставляют точки на бумаге. В струйном принтере печатающая головка выплевывает краску из сопел на бумагу под действием давления. А в лазерном принтере есть специальный барабан, который лазером же намагничивается в определенных местах. Потом он собирает графитную краску на намагниченные места и прокатывается по листу бумаги, перенося ее. У лазерного принтера, как видно, сухой принцип работы.
var summa:real;
begin clrscr;
write('Введите сумму покупки');
readln(summa);
if summa>1000 then
begin
writeln('Вам предоставляется скидка 10%');
writeln('Сумма покупки с учетом скидки: ',summa*0.9:0:2,' гривен.');
end
else writeln('Скидка не предоставляется'); write('Для завершения нажмите Enter');
readln
end.