<span>выбор к исполнению одного из возможных
действий (операторов) в зависимости от некоторого условия (при этом одно из
действий может быть пустым, то есть отсутствовать).
</span>
Var s:string;k:integer;
procedure SubInc(var s:string;var k:integer);
begin;
while pos('ea',s)<>0 do
begin;
delete(s,pos('ea',s),2);
inc(k);
end;
end;
begin;
readln(s);
if length(s)<>10 then exit;
SubInc(s,k);
writeln(k);
<span>end.</span>
В настройках принтера задается размер области печати, он меньше размера бумаги и меньше физической области печати.
Заданная в настройках область меньше отправляемой на печать
Методы устранения
1) Изменить область печати в настройках, на пример уменьшить поля
2) Изменить масштаб документа и вписать его в область печати
3) Проигнорировать и отправить на печать, если отправлячемая область меньше физической, то документ распечатается нормально, иначе или будет обрезан или на нескольких листах
4) изменить форматирование документа, уменьшив область, отправляемую на печать.
Var C2, C1: longint;
a, b, n: integer;
begin
readln(a, b, n);
b := b + a * 100;
C1 := b * n;
C2 := C1 mod 100;
C1 := C1 div 100;
writeln(C1, ',', C2);
<span>end.
Вот так =)</span>
Ответ:
var a,b,x,y,y1,y2,y3: real;
begin
a:=2.5;
b:=1.5;
write('x = ');
readln(x);
y1:=sin((a+x)*(a+x));
y2:=power(abs(x-a),1/3);
y3:=ln((x-b)*(x-b)+1);
y:=x*y1*y1-y2+y3;
writeln('Y = ',y);
y1:=sqrt(a*x*x+x);
y2:=a*exp(-a*x);
y3:=ln(abs(1-x)+1);
y:=y1+y2+y3;
writeln('F = ',y);
end.
