<span>Процедура автоматического форматирования текста предусматривает автоматическое расположение текста в соответствие с определенными правилами.
Кроме этого, выбирается шрифт, начертание и другие параметры.</span>
К существительному и глаголу
Var a, b, c, d, e: real;
begin
readln(a, b, c)
writeln(c*(a/b):0:3, ' руб.');
end.
Var
c:char;
k:integer;
FlagBlank:boolean;
begin
Read(c);
case c of
'К','к':begin k:=1; FlagBlank:=True end;
' ':begin k:=0; FlagBlank:=False end;
'.':k:=0;
else begin k:=0; FlagBlank:=True end
end;
while c<>'.' do begin
while (not FlagBlank) and (c<>'.') do
begin Read(c); FlagBlank:=(c=' ') end;
while Flagblank and (c<>'.') do
begin Read(c); FlagBlank:=(c=' ') end;
if UpCase(c)='К' then Inc(k);
end;
Writeln(k);
end.
var
x,days,y:integer;
begin
readln(x)
y=0;
days=0;
while y<x do
begin
days=days+1;
y=y+4-3;
end;
writeln('количество дней :' , days);
END.